Построить таблицу значений для функции y=x^2, на отрезке[4; 10], с шагом 0,1

var    x: real;

begin    writeln('x', #9, 'y');     x : = 4;     while(x < = 10) do     begin      writeln(x: 3: 1, #9, x * x: 4: 2);       x : = x + 0.1;     endend.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end