While и repeat! 3. вывести на экран таблицу значений функции y: =vx (корень из х) на интервале [2; 7] c шагом 0.5.

Var i:real;
begin
  i:= 2;
  while(i <= 7) do
  begin
    writeln('При x = ', i, '  y = ', sqrt(i));
    i:= i + 0.5;
  end;
 
end.