Programalama > PASCAL

uses crt;
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.

ziya ahmedsoy
sonata@nakhchivan.az