Middle Test!!!!!!! TIDAAAAAAKKKK!!!!

Ya ampun, kenapa banyak sekali tugas,,, dan banyak bula kegiatan yang harus aku lakukan, kenapa aku disibukkan dengan banyak sekali rutinitas,,, dan untungnya hari jumat-sabtu-minggu libur,,, yawh maklum bisa beristirahat dirumah..... heeem minggu depan ada tugas proyek yang harus aku kerjakan,,, gelllla loEEE!!!! hanya sekedar proyek khayalan ,,, susahnya minta ampun,,, mana banyak salah lagi cara ngebuatnya.... bisa2 dimaki22 customer ini... ADUHHH gimana ini???? oh ya masalah middle test,,, minggu depan MATDIS (alias Matematika Diskrit) banyak banget yang harus dipelajari,,, terus,, Tentang Pemrograman II yah syukur aja sieh materinya sudah pernah diajarkan yang di Pemrograman I, Insya Allah bisa... AMIEEEEEENNNNNNNN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

contoh Listing:

uses Crt;
var
x,y,z    :  longint;
lagi     :  char;
namak    :  string[20];

begin
lagi  :=  'y';
while (lagi  =  'y') or (lagi  =  'Y') do
begin
clrscr;
write('Siapa Nama Anda..?');  ReadLn(namak);
writeLn;
write('Hallo ',namak,', Coba kamu');
WriteLn(' masukan nilai x,y dan z ');
writeLn('pada operasi matematika ini.');
writeLn;
writeLn('Operasi matematika X^2 + y^2 + z =..... ');
write('masukan nilai x..= '); ReadLn(x);
write('masukan nilai y..= '); ReadLn(y);
write('masukan nilai z..= '); ReadLn(z);
writeLn;
writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);
writeLn;
write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');
readLn(lagi);
end;
end.