Помогите с тренажёрам для тренеровки памяти на PAS Опции

[Wolf]

Помогите с тренажёрам для тренеровки памяти на PASCAL ???

[ozzy]

Uses Crt;
Const
 MaxNumbers = 5;
Var
 Numbers  : Array [1..MaxNumbers] of Integer;
 Numbers2 : Array [1..MaxNumbers] of Integer;
 ErrorsA  : Array [1..MaxNumbers] of Integer;
 i        : Integer;
 TempStr  : String;
 S        : String;
 DelTime  : Integer;
 CurrN    : Integer;
 Errors   : Integer;
 Diff     : Integer;
 Sum      : Real;
Begin
 CurrN:=1;
 DelTime:=MaxNumbers*1000;
 Diff:=100;
 Randomize;
 For i:=1 to MaxNumbers-CurrN do
   ErrorsA[i]:=0;
 While CurrN<=MaxNumbers do
 begin
 ClrScr;
 TempStr:='';
 S:='';
 for i:=1 to CurrN do
   begin
     Numbers[i]:=Random(Diff);
     Str(Numbers[i],TempStr);
     S:=S+TempStr+' ';
   end;
 GotoXY(1,1);
 Writeln(DelTime div 1000,' секунд на выполнение задания!');
 GotoXY(39-Length(s) div 2,12);
 Writeln(s);
 Delay(DelTime);
 ClrScr;
 Errors:=0;
 for i:=1 to CurrN do
   begin
     WriteLn('Введите ',i,' число: ');
     ReadLn(Numbers2[i]);
   end;
 for i:=1 to CurrN do
   begin
     if Numbers2[i]<>Numbers[i] then
       Errors:=Errors+1;
   end;
 WriteLn('Ошибок допущено: ',Errors);
 ErrorsA[CurrN]:=Round(Errors/CurrN*100);
 WriteLn('Процент допущенных ошибок : ',ErrorsA[CurrN],'%');
 { Увеличиваем количество чисел }
 CurrN:=CurrN+1;
 { Уменьшаем время примерно на 1 сек. }
 DelTime:=DelTime-1000;
 { Увеличиваем числа }
 Diff:=Diff+100;
 ReadLn;
 end;
 Sum:=0;
 For i:=1 to MaxNumbers do
   Sum:=Sum+ErrorsA[i];
 Sum:=Sum/MaxNumbers;
 WriteLn('Средний процент ошибок в выполненых заданиях = ',Round(sum),'%');
 ReadLn;
End.