Паскаль Если сумма двух различных целых чисел x,y меньше 20,то x увеличить на 10 и вывести его на экран

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal будет выглядеть следующим образом:

program IncreaseX;
var
x, y: integer;
begin
write('Введите два различных целых числа x и y: ');
readln(x, y);
if (x <> y) and (x + y < 20) then
begin
x := x + 10;
writeln('Итоговое значение x: ', x);
end;
end.

Эта программа сначала запрашивает у пользователя два целых числа x и y, затем проверяет, что они различны и что их сумма меньше 20. Если это условие выполняется, то программа увеличивает значение x на 10 и выводит его на экран.