program for-to-do (10 bilangan prima)

Program firman;

Uses wincrt;

Var

  Prima :Integer;

  i,j: Integer;

  bil : Integer;

Begin

  i:=2;

  for  i:=2 to 30 do

  Begin

    Prima:=i;

    For j:= 2 to i-1 Do

    Begin

      bil := (i mod j);

      If bil = 0 then Prima:=0

          End;

    If Prima <> 0 Then Write(Prima,' ');

  End;

  Readln;

End.

Layout

Share On