Pascal ayuda

Programa 1.
Uses Crt;
Var
N1,N2,Fb:Real;
I,FIN:Integer;
X:Char;
Begin
ClrScr;
N2:=1;N1:=0;
writeln('Introduzca la posici¢n del n£mero final de la serie: ');
readln(FIN);
{Para evitar problemas de memoria a de ser un n£mero menor de 183,
o utilizar la gesti¢n de memoria con $M para asignar m s memoria}
Write('1');
For I:=1 to FIN Do
Begin
Fb:=N2+N1;
N2:=Fb;
N1:=N2-N1;
Write(Fb:10:0);
If WhereY=24 then
Begin
X:=ReadKey;
ClrScr;
End;
End;
X:=ReadKey;
End.
 Programa 2.
Uses Crt;
Const
VALORES = 3;
Var
Tabla : Array[1..VALORES] of integer;
i : integer;
begin
clrscr;
For i := 1 to valores do
begin
writeln('Introduzca un n£mero: ');
readln(tabla);
end;
{Aqu¡ har, la presentaci¢n de los datos. En realidad se podr¡a hacer en el bucle anterior
pero hago un bucle separado para dar mayor claridad a la soluci¢n}
For i := 1 to valores do
begin
if (tabla mod 5 = 0) then
writeln(tabla,' es m£ltiplo de 5');
end;
readln;
end.

Si tienes alguna duda, vuelve a escribir, y si no es así,