program SumOrSubtraction;
varx, y, z: integer;
beginwrite('Введите x: ');readln(x);write('Введите y: ');readln(y);
if x > y thenz := x + yelsez := x - y;
writeln('Результат: ', z);end.
// Пример работы программы:// Введите x: 6// Введите y: 3// Результат: 9
program SumOrSubtraction;
var
x, y, z: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
if x > y then
z := x + y
else
z := x - y;
writeln('Результат: ', z);
end.
// Пример работы программы:
// Введите x: 6
// Введите y: 3
// Результат: 9