вычислить значение для функции В=А+С^2, если в=2, а значение С изменяется на отрезке от 1 до 10, с шагом 0,5 (составить программный код в паскале)

var

b, a, c : Real;

begin

c : = 1;

b : = 2;

while c < = 10 do

begin

a : = 2 - sqr (c);

//Writeln (b:2:2, '=', a:2:2, '+', sqr (c) : 2:2);

Writeln ('При C = ', c:2:2, ' A = ', a:2:2, ' B = ', b:2:2);

c : = c + 0.5;

end;

Readln;

end.

Пусть в=y c=x a=z

var x, y, z : real

const a=1;

b=10

y=2;

h=0.5;

function f (x:real) : real

begin f (x) = z+x^2; end;

begin

x:=c;

while x<=b do begin

y:=f (x);

x:=x+h;

writeln (y);

end;

end.

Я не уверена в решении