Составить программу по блок схеменачаловвод a ,ba больше b?да max=aнет max=bвывод maxконец

var

   a, b, max: integer;

begin

   write ('Введите 2 числа: ');

   readln (a,b);

   if a >= b then

       max := a

   else

       max := b;

   writeln (max);

readln

end.