Contoh Membuat Program Stasiun TV dengan Free Pascal

program STASIUN_TV;
var
nostasiunTV : integer;

begin
write ('Masukkan nomor stasiun TV (1-5) : ');
readln (nostasiunTV);
case nostasiunTV of
1 : writeln ('TVRI');
2 : writeln ('RCTI');
3 : writeln ('SCTV');
4 : writeln ('ANTV');
5 : writeln ('INDOSIAR');
else writeln ('bukan stasiun TV yang benar');
end;
end.