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