Составить алгоритм для решения задачи. Определить минимальное число среди a и b
Pascal ABC
var a,b,min:integer;
begin
readln(a);
read(b);
min:=0;
if a>b then
min:=a
else
min:=b;
write(min)
end.
забыл написать. Это надо было делать в Кумире)))