Program Faktorial

Program Faktorial;
Uses Wincrt;
Var i,n,x:integer;
Begin
Writeln('Program Faktorial');
Writeln('=================');
Writeln;
Write('Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
if (n<=0) then
Writeln('Hasil Faktorial: ',1)
else
Begin
x:=1;
For i := 1 to n do
x:=x*i;
Writeln('Hasil Faktorial: ',x);
End;
End.

Program Bilangan Prima

program Bilangan_Prima;

uses wincrt;

var
n,i,x,sisa:integer;

begin
 writeln ('Masukan Batas Bilangan Prima: ');
 read (n) ;
 for i:=3 to n do
begin
 x:=1;
repeat
 x:=x+1;
 sisa:=i mod x;
until
 (sisa=0) OR (x=i-1);
 IF sisa <> 0 then writeln (i ,'= adalah bilangan prima ');
end;
 writeln(' ');
 writeln('---------------------------------------------');
 writeln('************** Nama    : MUHAMAD NUR AINI  ************');
 writeln('##############  NIM    : 702012113         ############');
 writeln('************** Prodi   : PTIK              ************');
 writeln('---------------------------------------------');
end.