algoritma untuk menampilkan bilangan genap 1 sampai 40

program acak;
uses crt;
var i:integer;
begin
clrscr;
for i:1 to 40 do
begin
writeln ('bilangan ke',i,'=',random(40));
end;
readln;
end.