cara mengerjakan tugas ganjil genap pada pascal

tugas pascal ganjil genap yang case

program Bilangan;
uses crt;
var
bil:integer;
begin
clrscr;
writeln;
writeln(' Bilangan Ganjil dan Genap');
writeln;
writeln;
write('Masukkan Bilangan :');readln(bil);
writeln;
writeln;
if bil mod 2 = 0 then write(bil,' adalah bilangan genap')
else write(bil,' adalah bilangan ganjil');
writeln;
writeln;
writeln(' Mindi Faisal Saputra');
writeln(' 130 2011 0217');
writeln(' TI.L.1.8');
readkey;
end.

cara copi listing ke pascal:
1 buat baru program di pascal
2 kemudian buka "C:\FPC\2.4.4\bin\i386-win32" cari nama pascal yg kamu buat
3 buka pascal yg kamu save dengan menggunakan wordpad
4 paste listing d atas
5 buka kembali pascal yg kamu sdh di copykan listing d atas