Question

Написать программу :максимальное из 2х чисел!!! ​

Answer 1

program a1;

var a, b, max: integer;

begin

readln(a,b);

if a>b then begin

max:=a;

end

else begin

max:=b;

end;

writeln (max);

end.