Ответ:
program 1;
var x, y: integer;
begin
writeln (‘введите x’);
readln (x);
writeln (‘введите y’);
readln (y);
if x>y then writeln (x)
else writeln (y);
end.
Program 2;
var x, y: integer;
begin
writeln (‘введите x’);
readln (x);
writeln (‘введите y’);
readln (y);
if x=0 then writeln (‘нет решений’)
else begin
y:=1/x;
writeln (‘y= ‘, y);
end;
end.
Примечание: строки writeln (‘введите х’) и writeln (‘введите у’) выводят на экран соответствующую надпись, подсказку, что нужно ввести значение соответствующей переменной. Если это не нужно, их можно не писать.