latihan membuat puisi dan menghitung volume

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.