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.