Question

Составить программу по алгоритму (см. прикреплённый файл)

Answer 1

На паскале:
Var x,y,max: integer;
Begin
Readln(x,y);
if x>y then
max:=x
else
max:=y;
Writeln(max);
End.