jumlah : byte;
begin
jumlah := 200;
write ('nilai jumlah= ', jumlah);
end.
Uses crt;
Var a,b,c : integer;
Begin
Clrscr;
Write (‘masukkan bilangan pertama: ‘);
Readln (a);
Write (masukkan bilangan kedua: ‘);
Readln (b);
C:=a*b-b;
Writeln;writeln(‘hasilnya adalah : ‘, c);
Readln;
End.
Pernah ada rasa cinta
Antara kita kini tinggal kenangan
Ingin kulupakan
Semua tentang dirimu
Namun tak lagi kan seperti dirimu
Oh bintangku
Jauh kau pergi meninggalkan diriku
Disini aku merindukan dirimu
Kini ku coba mencari penggantimu
Namun tak lagi kan sepeti dirimu
Oh kekasih
Jauh kau pergi meninggalkan diriku
Disini aku merindukan dirimu
Kini ku coba mencari penggantimu
Namun tak lagi kan seperti dirimu
Oh bintangku