Написать программу, вычисляющую значение выражения в зависимости…

Решение на Паскалеprogram zadacha; var x,y: integer; begin readln (x); {присваивает x} y: =x+1; {выполняет выражение и присваивает значение переменной y} writeln ('если x=',x,', то y=',y); {выводит ответ}end.