Задача на циклы, for..to..do , while..do или repeat...until Опции

[Juhn]

Помогите пожалуйста написать программу, завтра контрольная, и там вот будет эта задача.
Условие задачи: Вывести на экран таблицу значений аргумента и функции y= x+2(под корнем) -2. X меняется от -5 до 15 с шагом +1. Тоесть при включении программы сразу должны выдаваться все ответы в столбик: х=-5 y=.... x=-4 y=....
Написать прогу нужно используя цикл for..to..do , while..do или repeat...until
P.S если кто - то не понял под корнем только x+2. -2 уже без корня.

[Гость]

uses
crt;
var
i:integer;
 function func(X:integer):real;
   var
    y:extended;
      begin
       y:=sqrt(abs(x)+2)-2;
       func:=y;
      end;
begin
 writeln('Табулирование функций');
 writeln(' ------------------');
  for i:=-5 to 15 do
   begin
    writeln('| x= ',i:2,' | y=',func(i):6:2,'|');
   end;
 writeln('-------------------');
 readln;
end.
 

Держи свою задачу.