Рассчитайте значение переменной b var a; var b = a + 1;
Var a,b:integer; begin write('Введите a: '); readln(a); b:=a+1; writeln('b = ',b); end.