помогите решить!

Program P1;
uses crt;
var x, y: real;
i: integer;
label 1, 2, 3;
begin
ClrScr;
y=:1;
for i:=1 to 10 do
begin
Write(i, ') '); Readln(x);
if x<10 then goto 1;
if x>100 then goto 2;
y:=x*y;
end;
Write('Result = ', y:0:0);
readln;
goto 3;
1: ClrScr;
Write('ERROR: The "X" number is less than 10');
readln;
goto 3;
2: ClrScr;
Write('ERROR: The "X" number is more than 100');
readln;
3: end.

Легко!
Вот результаты:

Введите 10 чисел больше 10, но меньше 100 :
Введите 1 число: 99
Введите 2 число: 99
Введите 3 число: 99
Введите 4 число: 99
Введите 5 число: 99
Введите 6 число: 99
Введите 7 число: 99
Введите 8 число: 99
Введите 9 число: 99
Введите 10 число: 99
Произведение = 90438207500880449001

Введите 10 чисел больше 10, но меньше 100 :
Введите 1 число: 11
Введите 2 число: 12
Введите 3 число: 13
Введите 4 число: 14
Введите 5 число: 15
Введите 6 число: 99
Введите 7 число: 98
Введите 8 число: 97
Введите 9 число: 96
Введите 10 число: 95
Произведение = 3092889620620800

Основная программа:

var
i : Byte;
N, P : String;
begin
WriteLn('Введите 10 чисел больше 10, но меньше 100 :');
repeat
Write('Введите 1 число: '); ReadLn(P);
until Proverka(P);

for i := 2 to 10 do
begin
repeat
Write('Введите ', i, ' число: '); ReadLn(N);
until Proverka(N);

P := Mul(P, N);
end;

WriteLn('Произведение = ', P);
end.

… Осталось только 2 функции написать ;-)

поосторожнее с теми кто пользует goto в паскаль
это очень опасные любди
а их решения даже анализировать не стоит

7547305 пиши пока заняться мне нечем)

Пишите на почту или в асю 586178755 решу все в кратчайшие сроки)