не могу написать

[Дашуля_18]

...цикл в цикле

[whatever]

Дэлфи:

function y(b,x:real):real;
begin
  result:=sqrt(abs(x*x+b*x));
end;

var
  x,h:real;
begin
  h:=1.5;
  x:=-3;
  while x<=3do
    begin
      writeln('y= ',y(3.7,x));//   !b=3.7
      x:=x+h;
    end;
  readln;
end.

Паскаль:

function y(b,x:real):real;
begin
  y:=sqrt(abs(x*x+b*x));
end;

var
  x,h:real;
begin
  h:=1.5;
  x:=-3;
  while x<=3do
    begin
      writeln('y= ',y(3.7,x));//   !b=3.7
      x:=x+h;
    end;
  readln;
end.

[оффтоп]Кто-то плюсанул это сообщение с комментарием "ГыГы ))) Найди ыдцать отличий :D".
Во-первых спасибо,
во-вторых различие (одно ) есть, но многих новичков это ставит в ступор. По-этому написал два варианта [/оффтоп]