tugas pengganti UAS praktikum B-2

{program??? dibuat oleh Djaffar pada 18 desember 2010}
uses crt;
var
name,pass,c:string;
a,b,d,e,f,g:integer;
code:char;

procedure introduction(add,school:string);
begin
writeln(name,' where do you come from?');
readln(add);
writeln('and where school are you?');
readln(school);writeln;
writeln('okay,you are...');
writeln('name: ',name);
writeln('add: ',add);
writeln('school: ',school);writeln;
writeln('welcome to my program... before that i am Djaffar alias DJ');
end;
procedure identifier(code:char);
begin
repeat
writeln(name,' do you know the password for this program?');
readln(pass);
if pass='katana' then
begin
writeln('gotcha! welcome to the program');
sound(1467);
delay(1000);
sound(4563);
delay(100);
nosound;
code:='t';
writeln('press ENTER to clear screen and next to the quiz');
end
else
begin
writeln('this is a little hint for you,japanese sword???');
sound(1004);
delay(1000);
sound(6666);
delay(100);
nosound;
code:='y';
end;
until(code='t');
end;
begin
clrscr;
writeln('hello! who are you?');
readln(name);
introduction('add','school');
identifier(code);
readln;
clrscr;
writeln('i have a little quiz for you ',name,' would you answer it?');
writeln('HOW THE SHAPE OF EARTH,round or what?');
writeln('the answer format is...');
write('round=1 or ');writeln('else=0');
readln(a);
if a=0 then
begin
a:=0;
while a<1 do
a:=a+1;
writeln;writeln('nice logical and knowledge you have there ^^b');writeln;
end
else
writeln;writeln('i do not think so... because of global warming our earth become more ELIPS shape');writeln;
writeln('however,that is just my opinion... okay ',name,' would you see something weird?');writeln;
writeln('what is your favorite number?');
readln(b);
writeln('what is your favorite symbol? (this mean anything symbol on your keyboard)');
readln(c);
writeln('okay,see this...');writeln;
writeln(c);
for d:=1 to b do
begin
for e:=1 to 1 do
write(c);
begin
for f:=2 to d do
write(' ');writeln(c);
if d=b then
begin
for g:=1 to b+2 do
write(c);
end;end;end;
writeln;
writeln;
writeln('hahaha... see you next time... btw,why i use english?');
writeln('karena saya tidak dapat menemukan kata-kata yang cocok untuk pemrograman');
writeln('silahkan tekan ENTER untuk keluar program');
readln;
end.