Составьте программу и начертите блок-схему (используя цикл с предусловием) для вычисления функции у=3√х²+1, если х=4,7,10,13,16,19,21.

Если это паскаль, то вот.
var x,y:integer;
begin
y:=1;
x:=4;
while not (x=24) do
 begin
 y:=3*(sqrt(x*x + 1));
writeln("для х= ", x, "y= ", y);
x:=x+3;
end;
end.