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

Question

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

Answer 1

var

   a, b, max: integer;

begin

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

   readln (a,b);

   if a >= b then

       max := a

   else

       max := b;

   writeln (max);

readln

end.