1. 5
2. 79
3. x=1, y=0 (см фото)
Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.
P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)