РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА*******

ДАНЫ ДЛИНЫ ЧЕТЫРЕХ РАЗЛИЧНЫХ КАБЕЛЕЙ. НАЙТИ САМЫЙ КОРОТКИЙ ИЗ НИХ.

Var a1,a2,a3,a4:integer;
begin
read (a1,a2,a3,a4);
if a1<a2 and a1<a3 and a1<a4 then write ('1 кабель-короткий');
if a2<a1 and a2<a3 and a2<a4 then write ('2 кабель-короткий');
if a3<a2 and a3<a1 and a3<a4 then write ('3 кабель-короткий');
if a4<a2 and a4<a3 and a4<a1 then write ('4 кабель-короткий');
end.

Вася мне написали что неэффективно !!!