Решите задачу на языке 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.