طلب nombre premier pascal

program test;
var
a, diviseur :integer;
result :BOOLEAN;

begin
writeln('Entrez un nombre entier');
readln(a);

IF (a = 2) THEN
Result := True

ELSE IF (a > 2) THEN
result := false

ELSE IF (a mod 2 = 0) THEN
Result := False

For diviseur := 2 to (a-1) DO
ELSE IF (a mod diviseur = 0) THEN
result := false


ELSE
result := true;

writeln('Est-ce que ce nombre est premier? ', result)
end.
 
أعلى