Robot Programı

uses wincrt;
var
i:integer;
tus:char;
begin
textcolor(blue);
textbackground(yellow);
clrscr;
for i:=1 to 10 do
begin
gotoxy(40-i,i+12);
write('.');
end;
for i:=1 to 10 do
begin
gotoxy(39+i,i+23);
write('.');
end;
for i:=1 to 10 do
begin
gotoxy(40+i,i+12);
write('.');
end;
for i:=1 to 10 do
begin
gotoxy(41-i,i+23);
write('.');
end;
for i:=1 to 13 do
begin
gotoxy(40,i+10);
write('.');
end;
for i:=1 to 7 do
begin
gotoxy(36+i,1+10);
write(#2);
end;
while tus<>'9' do
begin
repeat
tus:=upcase(readkey);
until tus in ['1','2','3','4','5','6','7','8','9',#75];
if tus='1' then
begin
for i:=1 to 10 do
begin
gotoxy(40-i,i+12);
write(' ');
end;
for i:=1 to 15 do
begin
gotoxy(i+24,1+12);
write('.');
end;
end;
if tus='2' then
begin
for i:=1 to 15 do
begin
gotoxy(i+24,1+12);
write(' ');
end;
for i:=1 to 10 do
begin
gotoxy(40-i,i+12);
write('.');
end;
end;
if tus='3' then
begin
for i:=1 to 10 do
begin
gotoxy(40+i,i+12);
write(' ');
end;
for i:=1 to 15 do
begin
gotoxy(40+i,1+12);
write('.');
end;
end;
if tus='4' then
begin
for i:=1 to 15 do
begin
gotoxy(40+i,1+12);
write(' ');
end;
for i:=1 to 10 do
begin
gotoxy(40+i,i+12);
write('.');
end;
end;
if tus='5' then
begin
for i:=2 to 10 do
begin
gotoxy(41-i,i+23);
write(' ');
end;
for i:=1 to 15 do
begin
gotoxy(40-i,1+23);
write('.');
end;
end;
if tus='6' then
begin
for i:=1 to 10 do
begin
gotoxy(41-i,i+23);
write('.');
end;
for i:=1 to 15 do
begin
gotoxy(40-i,1+23);
write(' ');
end;
end;
if tus='7' then
begin
for i:=1 to 10 do
begin
gotoxy(39+i,i+23);
write(' ');
end;
for i:=1 to 17 do
begin
gotoxy(39+i,1+23);
write('.');
end;
end;
if tus='8' then
begin
for i:=1 to 10 do
begin
gotoxy(39+i,i+23);
write('.');
end;
for i:=2 to 17 do
begin
gotoxy(39+i,1+23);
write(' ');
end;
end;
if tus='9' then
begin
exit;
end;
end;
readln();
end.