program naim4;var a,b,c,d,min:real;begin;writeln(039;введите 4 числа039;);readln;min:=a;if b amp;lt;

Program naim4;
var a,b,c,d,min:real;begin;
writeln('введите 4 числа');
readln;
min:=a;
if b lt; min then min:=b;
if c lt; min then min:=c;
if d lt; min then min:=d;
writeln('малое ',min);
readln;
end.

нужно отыскать малое число из 4 данных.Что не так?