Ошибка в коде

[shadezx]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
pr_x,pr_y,pr_z:real;
q,w,e:real;
d1,d2,d3,x,y,z:real;
i1,i2,i3:integer;
begin
writeln('readl d1,d2,d3');
readln(d1,d2,d3);
writeln('int i1,i2,i3');
readln(i1,i2,i3);
q:=pr_x(i1,i2,i3,d1,d2,d3);
writeln('x = ',q:4:2);
w:=pr_y(i1,i2,i3,d1,d2,d3);
writeln('y = ',w:4:2);
e:=pr_z(i1,i2,i3,d1,d2,d3);
writeln('z = ',e:4:2);
readln;
end.

Модуль код:

unit Unit1;

interface procedure pr_X(d1,d2,d3:real;i1,i2,i3:integer;out x:real);
		      procedure pr_Y(d1,d2,d3:real;i1,i2,i3:integer;out y:real);
          procedure pr_Z(d1,d2:real;i1,i2,i3:integer;out z:real);

implementation

procedure pr_X(d1,d2,d3:real;i1,i2,i3:integer;out x:real);
begin
  x:=((10*10*10)/3)*((i1)/(i2+i3))*(d1+d2+d3);
end;
procedure pr_Y(d1,d2,d3:real;i1,i2,i3:integer;out y:real);
begin
  y:=((d1)/(d2*d3))+((i1)/(i1+i2));
end;
procedure pr_Z(d1,d2:real;i1,i2,i3:integer;out z:real);
begin
  z:=d1*((i1+i2)/(d2))+(i3)/(i1*i2);
end;
end.

Выдает ошибку Missing operator or semicolon

[WorldMaster]

Где ошибку то выдает?

[shadezx]

в етой строке

q:=pr_x(i1,i2,i3,d1,d2,d3);

[type_Oleg]

А как можно присваивать процедуру? Это же не функция.

Кстати, у вас там еще и локальные переменные с тем же именем. Так что компилятор не понял, почему скобки после имени переменной.

[shadezx]

исправил, всеравно та же ошибка

[type_Oleg]

А что исправили?

[shadezx]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
x1,y1,z1:real;
d1,d2,d3,x,y,z:real;
i1,i2,i3:integer;
begin
writeln('readl d1,d2,d3');
readln(d1,d2,d3);
writeln('int i1,i2,i3');
readln(i1,i2,i3);
x1(i1,i2,i3,d1,d2,d3);
writeln('x = ',x:4:2);
y1(i1,i2,i3,d1,d2,d3);
writeln('y = ',y:4:2);
z1(i1,i2,i3,d1,d2,d3);
writeln('z = ',z:4:2);
readln;
end.

так норм?

[type_Oleg]

Если бы я был компилятором, я спросил бы, почему у вас опять после имени переменной x1 какие-то скобки.

Если ничего не меняли в модуле Unit1, сделайте так. В первом варианте.
Выбросить это:

pr_x,pr_y,pr_z:real;

Вместо этого

q:=pr_x(i1,i2,i3,d1,d2,d3);

Вставьте вот это

 pr_x(d1,d2,d3,i1,i2,i3,q); // не путайте порядок аргументов

И то же самое - с остальными двумя.

PS Сами процедуры я не проверял, не знаю, что вам там надо. Однако довольно забавно выглядит конструкция (i1). Зачем скобки ?

[shadezx]

теперь выдает ошибку
[Error] Project1.dpr(21): Incompatible types: 'Integer' and 'Real'
в строке

pr_z(d1,d2,d3,i1,i2,i3,z);

[WorldMaster]

Сообщение от shadezx

теперь выдает ошибку
[Error] Project1.dpr(21): Incompatible types: 'Integer' and 'Real'
в строке

pr_z(d1,d2,d3,i1,i2,i3,z);

Так вы посмотрите как вы объявили процедуру то:

procedure pr_Z(d1,d2:real;i1,i2,i3:integer;out z:real);
begin
  z:=d1*((i1+i2)/(d2))+(i3)/(i1*i2);
end;

На вход она требует 2 вещественных числа а вы сколько подаете?
Да даже тупо количество переменных посчитайте.