Tugas Struktur Data

*menampilkan bilangan genap dari 1-100:
========================================
program bil_genap_belilasdotcom;
uses wincrt;
var
x : integer;
begin
for x := 1 to 100 do
if x mod 2=0 then
write(x:3);
end.
========================================