Рассчитайте значение переменной b
var a;
var b = a + 1;

Var a,b:integer;
begin
  write(Введите a: );
  readln(a);
  b:=a+1;
  writeln(b = ,b);
end.