Question

Даны два числа А и В. Найти наибольшее из них а) составьте план написания программы; б) напишите код программы.

Answer 1

Var
a, b: integer;
begin
readln(a, b);
if a>b then
writeln('Наибольшее число A');
if a=b then
writeln('Числа равны');
if a<b then
writeln('Наибольшее число B');
end.