Pr­mkeresŠs Pascalban?

program prim;

uses crt;

var

a,i,oszto:integer; //i= logikai változó, a=bekért szám, oszto= osztók száma

begin

clrscr //képernyőtörlés

oszto:=0; //osztók száma 0 (egyelőre)

writeln('irj be egy egész számot!');

readln(a);

for i:=1 to a do

if a mod i = 0 then oszto:=oszto+1;

//bekér egy számot, majd megnézi hogy az 1-és a bekért szám közötti számokból hánnyal osztható

if oszto<3 tehn writeln('a szám prím')

//ha az osztók száma kevesebb mint 3, azaz 2,- 1 és önmaga- a szám prím

else writeln('a szám NEM prím');

//else elé nemkell ; ,ha több mint 2 osztója van akkor nem prím

readln;

end.

persze ennek rengeteg féle megoldása van.

ezt azoknak irtam le akik esetleg meg is akarják érteni, miért igy kell