РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА*******ДАНЫ ДЛИНЫ 4 Разных КАБЕЛЕЙ.

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