Gerade Zahl

[rüssel]

Dankeschön

Also falls es nicht unpassend ist hätte ich noch eine Frage bezüglich des Programms, und zwar
wenn man nur Primzahlen möchte habe ich probiert, das hier anzuhängen, aber es funktioniert nicht,
könntet ihr mir vielleicht einen Ratschlag geben.

Delphi-Quellcode:

var a,i,n:integer;
begin
   a:=1;
   for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If not odd(n) then
        Memo1.Lines.Delete(i);
       If n = 1 then Memo1.Lines.Delete(i);
         if n <> 1 then
          begin
           repeat
            a:=a+1
           until n mod a = 0;
            if n mod a <> 0
            then Memo1.Lines.Delete(i);
          end;
end;

Falls es keine Umstände bereitet köntet ihr mir Pred und TryStrtoint erklären, bitte.