Вычислить значение для функции в=а+с^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.

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