Tugas konsep pemograman

Uses crt;
var
kode:byte;
harga,th:longint;
nama:string;
Begin
clrscr;
writeln(‘Nama :Teddy mizwar’);
writeln(‘’);
writeln(‘Kelas :TI-M1222’);
writeln(‘’);
writeln(‘Npm :12110985’);
writeln(‘’);
writeln(‘’);
writeln(‘ <<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>’);
writeln(‘ Tugas Konsep Pemograman ‘);
writeln(‘ <<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>’);
writeln(‘’);
writeln(‘Inputkan Kode Penjualan’);
writeln(‘---------------------------’);
writeln(‘kode:’);readln(kode);
Case kode of
1:begin
clrscr;
nama:=’Televisi’;
writeln(‘Nama : ’,nama);
writeln(‘’);
harga:=1750000
writeln(‘Harga :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli : ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘ {{{{{{{{{{{{ STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;

2:begin
clrscr;
nama:=’DVD’;
writeln(‘Nama : ’,nama);
writeln(‘’);
harga:=650000
writeln(‘Harga :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli : ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘ {{{{{{{{{{{{ STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;
3:begin
clrscr;
nama:=’CD ROOM’;
writeln(‘Nama : ’,nama);
writeln(‘’);
harga:=1750000
writeln(‘Harga :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli : ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘ {{{{{{{{{{{{ STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;

end;
readln;
end.

http://mesran.blogspot.com/2013/03/nggak-sulit-belajar-bahasa-pemrograman.html