//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=0.6; var y:=0.0;
for var i:=1 to 100 do
begin
y:=3*x**2+sqrt(4*x)-7.3;
Writeln('y',y:0:4,' ','x=',x);
if x>0.8 then exit;
x:=x+0.04;
end;
end.
