Проблемы с функцией пользователя в ТМТ, Функция выдает неверный результат Опции

[Mike 324]

Составил прогамму на Паскале

Program Proba9;
Function MyHet(a:Integer):Integer;
var
x, y:Integer;
Begin
y:=x+2;
MyHet:=y;
End;
Var
a,b:Integer;
Begin
Write('a=');
ReadLn(a);
b:=MyHet(a);

WriteLn('b=',b);

End.

В Паскале ТМТ при a=2 результат b=655362. В Паскале IRIE при том же a вообще выдает ошибку Line 6.
В чем ошибка ?

Сообщение отредактировано: volvo - 3.11.2006 17:26

[volvo]

To: Mike 324
Дык...

Function MyHet(a:Integer):Integer;
var
  x, y:Integer;
Begin
  y:=x+2;
  MyHet:=y;
End;

а где ты здесь A используешь? И откуда X значение присваивается?

Может, так:

Function MyHet(a:Integer):Integer;
Begin
  MyHet:=a + 2;
End;

?