Question

составить и набрать текст программы в abc pascal начало; ввод A,B; A>B;да-c:=A нет-c:=B Вывод C ;Конец

Answer 1

Ответ:

var a,b,c: integer;

begin

ReadLn(a);

ReadLn(b);

if a > b then

         c: = a

else

c := b;

WriteLn(c);

end.

Объяснение: