составить алгоритм для решения задачи. Определить минимальное число среди 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.