Write ('h = ', h); для h=35 на экране будет

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.