Question

Выполните на компьютере все программы, приведённые в этом параграфе

Answer 1

var A,B,C:real;

begin

readLn(A,B);

C:=A;

if B>A

then C:=B;

write(C);

end.