program Pascal AP 2A

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.


=> OUTPUT <=
Siapa Nama Anda...? _

Siapa Nama Anda...? ILFA FAUJIA
Hallo ILFA FAUJIA, Coba kamu masukan nila x,y, dan z
pada operasi matematika dibawah ini.

Operasi matematika x^2 + y^2 + z adalah = ......
masukan nilai x..= _

Siapa Nama Anda...? ILFA FAIJIA
Hallo BEJO, Coba kamu masukan nila x,y, dan z
pada operasi matematika dibawah ini.

Operasi matematika x^2 + y^2 + z adalah = ......
masukan nilai x..= 2
masukan nilai y..= 2
masukan nilai z..= 2

nilai operasi x^2 + y^2 + z adalah : 10

Mau hitung lagi apa tidak (y/t), ILFA FAUJIA ? _