составить программа построения таблицы значений функции. y=(2*x+1)/sqrt(x-3) на интервале от 0 до 4 с шагом 0.1.

var x: real;beginwriteln('x y');x:= 0;while(x <= 4) dobeginx := x + 0.1;if x>3 thenwriteln(x:3:1, ' ' , (2*x+1)/sqrt(x-3):4:2);endend.