1)program puisi;
uses crt;
begin
write('terdiam aku dalam ragu');
write('termenungku dalam rapuh');
write('nyawa yang terkulai runtuh');
write('ditemani malaikat maut yang menuggu');
write(‘gelap mata ini’);
write(‘namun didetik itu’);
write(‘hanya mata indahmu’);
write(‘hanya senyummu yang menguatkanku’);
end.
2)program volumekubus;
uses crt;
var
volume_kubus:string;
sisi1:integer;
sisi2:integer;
sisi3:integer;
volume:longint;
begin
clrscr;
write('masukkanvolume_kubus=');readln(volume_kubus);
write('masukkansisi1=');readln(sisi1);
write('masukkansisi2=');readln(sisi2);
write('masukkansisi3=');readln(sisi3);
write('masukkanvolume=');readln(volume);
volume:=sisi1*sisi2*sisi3;
writeln('totalvolumeadalah=',volume);readln;
end.
