paskal

Program perkalian:

uses crt; 

var p,l,t,v:integer; 

begin 

writeln('Masukkan nilai panjang'); 

readln(p); 

writeln('Masukkan nilai lebar');

readln(l); 

writeln('Masukkan nilai tinggi'); 

readln(t);

v := p * l * t; 

writeln(v); 

readln; 

end.

program perulangan_for;
uses crt;
var
i,batas : integer;
begin
clrscr;
write ('masukkan batas akhir = ');
read (batas);
for i := 1 to batas do
begin
if i mod 3 = 0 then
write (i,' ');
end;
readln;
readln;
end.

program perulangan_while;
uses crt;
var
i,batas : integer;
begin
clrscr;
write ('masukkan batas akhir = ');
read (batas);
i := 1;
while i <= batas do
begin
if (i mod 2 <> 0 ) AND (i mod 3 = 0) then
write (i, ' ');
i := i + 1;
end;
readln;
readln;
end.