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

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

var x,y,z : realconst a=1; b=10y=2; h=0.5; function f(x: real): realbegin f(x)=z+x^2; end; beginx: =c; while x< =b do beginy: =f(x); x: =x+h; writeln(y); end; end.

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

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.

ш, с, в (о-дин, д-ва, т-ри, ч-етыре, п-ять, ш-есть, с-емь, в-

артефакт, инстинкт, антрацит, оригинал.

правило шифрования - слова написаны справа налево, т.е. наоборот.