ОШИБКА В ПОДПРОГРАММЕ ПАСКАЛЬ

[возможно]

Program Pass;
Var a,b,x:integer;
х:=0;
Procedure pr(a,b:integer;var x:real);
Begin
 if a<b then x:=a/b+5;
  if a=b then x:=-5;
   if a>b then x:=(a*a-b)/b;
end;
Begin
Writeln('Введіть значення a');
Readln(a);
Writeln('Введіть значення b');
Readln(b);
pr(a,b,x);                                        - ВЫДАЕТ ОШИБКУ НЕПРАВИЛЬНЫЙ ТИП ПАРАМЕТРОВ ПОДПРОГРАММЫ
Writeln('X=',x);
End.

ПОДСКАЖИТЕ ПОЖАЛУЙСТА ЧТО НЕ ТАК

[ViktorR]

Как определена переменная x?

Var a,b,x:integer;

и как на использована при вызове:

pr(a,b,x);

Переопредели x

Var a,b:integer;
x: real;

Это надо и потому, что в выражении x:=a/b+5; a/b - вещественное.
В твоём случае будет вычисление с отбрасыванием остатка.

[возможно]

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

Как определена переменная x?

Var a,b,x:integer;

и как на использована при вызове:

pr(a,b,x);

Переопредели x

Var a,b:integer;
x: real;

Это надо и потому, что в выражении x:=a/b+5; a/b - вещественное.
В твоём случае будет вычисление с отбрасыванием остатка.

ААААА СПАСИБООООО

[digitalis]

Тему ПАСКАЛЬ!!! зарубили совершенно справедливо - название темы ни о чём. Поэтому даю по ней совет в этой теме: Убери кавычки в последнем Writeln - и всё зажурчит.

[Arigato]

возможно, отключите режим CapsLock.