Готово...............................
Var a,b:integer;
begin
readln(a,b);
if a>b then write(a)
else write(b)
end.
После выполнения фрагмента прграммы x будет равен 67
Как я понимаю а)а=53 и б)b= 67 - значения переменных а и b соответственно
в) а=50 г) b=106
При а=53 и b=67 x=120
При а=50 и b=106 x= - 324