Developing.ru

Код: Выделить всё

program zadacha2;
var
  x,y,h,xk,n,p,sgrt:real;
  i:integer;
begin
  x:=0;xk:=4;;h:=0.2;
  while x<xk+h/2 do
  begin
    if x>2 then
      y:=x+2.5*(sgrt)*3+x*x
    else
      for i:=1 to 8 do
      begin
        p:=(n+1);
        y:=p*x*x;
        writeln('x',x:6:2,'y',y:6:2);
      end;
    x:=x+h;
    readln;
  end;
end.