Question

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

Answer 1

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.