Program Kelipatan Angka

while..do

Program whiledo1;

Uses wincrt;

Var i:byte;

Begin

     Writeln('Kelipatan 7 sampai 140:');

     i:=1;

     While i<=140 Do

     Begin

          If i mod 7 = 0 then

          Writeln(i);

          i:=i+1;

          end; 

end.

Repeat..Until

Program ru1;

Uses wincrt;

Var x:integer;

Begin

x:=1;

repeat

writeln(x,'. Sarah Kartika dan Andy Muhammad Syamsyar');

x:=x+1;

until x>26;

end.

For..Do

uses wincrt;

var i:integer;

begin

writeln('kelipatan 3 sampai 95:');

for i:=3 to 95 do

if i mod 3 =0 then

writeln(i);

end.