сижу на уроке((( переведите из дефи в паскаль...

[Wawancher]

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, math;
function z1(a,x:real):real;
begin
  if (tan((a-x)/x))<0 then
    result:=9999999999999    //если тангенс отрицательный, то корень из него не извлечсется => нам эта функция не интересна.
  else
    result:=sqrt((tan((a-x)/x)));
end;

function z2(a,x:real):real;
begin
  result:=ln(a*a/x);
end;

function z3(a,x:real):real;
begin
  result:=arctan((x*x*x*sqrt(a))/(a+2.5));
end;

function FindMin(a,x:real):real;
begin
  if z1(a,x)<z2(a,x) then
    result:=min(z1(a,x),z3(a,x))
  else
    result:=min(z2(a,x),z3(a,x));
end;

var
  x,a,z:real;
begin
  x:=1;
  a:=2;
  while x<=3 do
    begin
      while a<=4 do
        begin
          z:=FindMin(a,x);
          Writeln('a= ',a:2:2,', x= ',x:2:2,', z= ',z:2:2,';');
          a:=a+1.7;
        end;
      a:=2;
      x:=x+1.1;
    end;
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ни здрасте, ни пожалуйста...

выкидывайте uses (в Pascal таких библиотек нет)
допишите две функции, которые в Delphi есть (модуль Math), а в Pascal нет: tan и min (см. ниже)
все ключевые слова result замените на имена функций.
и константу 9999999999999 уменьшите (Pascal такие большие числе не понимал)
комментарий с // уберите (либо возьмите в фигурные скобки. всё.

начало может выглядеть примерно так:

program Project1;

function tan(x:real) : real;
begin
  tan := sin(x)/cos(x)
end;

function min(x,y:real) :real;
begin
  if x<y then min := x
  else min := y;
end;


function z1(a,x:real):real;
begin
  if (tan((a-x)/x))<0 then
    z1:=9999999    {//если тангенс отрицательный, то корень из него не извлечсется => нам эта функция не интересна.}
  else
    z1:=sqrt((tan((a-x)/x)));
end;

function z2(a,x:real):real;
begin
  z2:=ln(a*a/x);
end;

... 
И Т.Д.

[Wawancher]

Спасибо, ща попробуем)))