Написать простую программу(паскаль).
Дано три числа a, b, c .Найти среди них минимальное.

program z1;
uses crt;
var a,b,c,min:integer;
begin
writeln ('vvedite a,b,c');
readln(a,b,c);
if a < b then min:=a else min:=b;
if min>c then min:=c;
writeln('minimal: ',min);
end.