var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.
после writeln() должно стоять ( ;)
и в конце не нужна readln
Выполняется условие b > a, значит выполняется then.
S:=2
S:= 2 + 4
S:= 6
Hgjhjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj