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