Паскаль. даны три действительных числа a,b,c. присвоить программной переменной ymin значение min {a,b,c}.

Program min;
var
a,b,c,Ymin:integer;
begin
writeln('Введите три числа : ');
readln(a,b,c);
if a>b then
 Ymin:=b else Ymin:=a;
If b>c then
 Ymin:=c else Ymin:=b;
If a>c then
 Ymin:=c else Ymin:=a;
writeln('Наименьшее значение = ',Ymin);
readln;
end.