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.
