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