var x, y, a, b: integer;
beginx := 7; // пример значения x
if x < 10 theny := x * xelsey := x + a div b; // предполагается, что a и b уже определены
writeln('y = ', y);end.
var x, y, a, b: integer;
begin
x := 7; // пример значения x
if x < 10 then
y := x * x
else
y := x + a div b; // предполагается, что a и b уже определены
writeln('y = ', y);
end.