Решите на языке paskal дано 3 числа. найти наименьшее из них.

Var a,b,c,min: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
min:=a;
if b < min then min:=b;
if c < min then min:=c;
writeln(min);
end.