Program Primer1;
Var a,b,c,d,e, min: real;
begin
writeln('Введите 5 чисел');
readln (a,b,c,d,e);
min:= a;
if min > b then min:= b;
if min > c then min:= c;
if min > d then min:= d;
if min > e then min:= e;
writeln('Наименьшее значение = '; min);
end.