classification of value for students (Delphi)

var nilai:integer;

begin

   nilai:=78;                                   

   if nilai<60 then

     write('D')

   else

   if nilai<75 then

     write('C')

   else

   if nilai<85 then

     write('B')

   else

     write('A');                                

   readln;

end.

traffic lights program (Delphi)

var lampu:string;

begin

   lampu:=’hijau’;        

   if lampu=’merah’ then

     write('stop')

   else

   if lampu=’kuning’ then

     write('ready')

   else

     write('go');        

end.

calculate the area of ​​a rectangle (Delphi)

var p,l,luas:integer;

begin

p:=10;

l:=5;

luas:=p*l;

write(‘luas=’,luas);

readln;

end.

Array with procedure (Delphi)

{$APPTYPE CONSOLE}

uses

  SysUtils;

type larik=array[1..5]of integer;

var LarikA,LarikB,LarikC:larik;

procedure isilarik(var A:larik;var B:larik);

var x:byte;

begin

   for x:=1 to 5 do

   begin

     write('A[',x,']:');readln(A[x]);

   end;

   writeln;

   for x:=1 to 5 do

   begin

     write('B[',x,']:');readln(B[x]);

   end;

end;

procedure penjumlahan(var A:larik;var B:larik;var C:larik);

var x:byte;

begin

   for x:=1 to 5 do

   begin

      C[x]:=A[x]+B[x];

   end;

end;

procedure tampil(C:larik);

begin

   writeln;

   for x:=1 to 5 do

    writeln('C[',x,']:',C[x]);

end;

begin

  { TODO -oUser -cConsole Main : Insert code here }

  isilarik(larikA,larikB);

  penjumlahan(larikA,larikB,larikC);

  tampil(larikC);

  readln;

end.

Bilangan prima 2-30 (DELPHI)

{$APPTYPE CONSOLE}

var

angka:array[2..30]of integer;

i,j:integer;

bil:integer;

begin

for i:=2 to 30 do

begin

angka[i]:=i;

for j:=2 to i-1 do

begin

bil:=(i mod j);

if bil=0 then

angka[i]:=0;

end;

write(angka[i],' ')

end;

readln;

end.