Zahlen symmetrisch

[dominikkv]

Delphi-Quellcode:

function isPrime(Zahl: Integer): Boolean;
var
  Temp: Integer;
begin
  Temp := 2;
  while ((Zahl mod Temp) <> 0) and (Zahl > Temp) do
    inc(Temp);

  result := Zahl = Temp;
end;