Programalama > PASCAL

uses crt;
var
m,n:string;
i,j,k,l,c:byte;
begin
 REPEAT
 clrscr;
 write('GORUNTULEME TARZINIZI SECIN (1-2-3?)  ='); READLN(C);
 CLRSCR;
 REPEAT
 UNTIL (C=1) OR (C=2) OR (C=3);
 if c=1 then
 begin
 write('1. Goruntulume Metnini Sectiniz.Bir Metin Giriniz  = ');  readln(m);
 CLRSCR;
 for i:=1 to 7 do begin
 TEXTCOLOR(I);
 gotoxy(8-i,i+3); write(m); end;
 for j:=2 to 7 do begin
 TEXTCOLOR(J);
 gotoxy(j,j+9); write(m); end;
 for k:=1 to 7 do begin
 TEXTCOLOR(K);
 gotoxy(14+k,k+3); write(m); end;
 for l:=1 to 6 do begin
 TEXTCOLOR(L);
 gotoxy(21-l,l+10); write(m); end;
 end
 else
 if c=2 then
 begin
 write('2. Goruntulume Metnini Sectiniz. Bir Metin Girin = '); readln(n);
 CLRSCR;
 for i:=1 to 7 do begin
 TEXTCOLOR(I);
 gotoxy(28+i,i+3); write(n); end;
 for j:=1 to 7 do begin
 TEXTCOLOR(J);
 gotoxy(36-j,j+9); write(n); end;
 for k:=1 to 7 do begin
 TEXTCOLOR(K);
 gotoxy(47-k,k+3); write(n); end;
 for l:=1 to 6 do begin
 TEXTCOLOR(L);
 gotoxy(40+l,l+10); write(n); end;
 end
 else
 if c=3 then
 begin
 writeln('2 Goruntuleme Seklini Birden Sectiniz.');
 write('Lutfen 1. Metni Giriniz = '); readln(m);
 write('Lutfen 2. Metni Giriniz = '); readln(n);
 for i:=1 to 7 do begin
 TEXTCOLOR(I);
 gotoxy(8-i,i+7); write(m); end;
 for j:=2 to 7 do begin
 TEXTCOLOR(J);
 gotoxy(j,j+13); write(m); end;
 for k:=1 to 7 do begin
 TEXTCOLOR(K);
 gotoxy(14+k,k+7); write(m); end;
 for l:=1 to 6 do begin
 TEXTCOLOR(L);
 gotoxy(21-l,l+14); write(m); end;
 for i:=1 to 7 do begin
 TEXTCOLOR(I);
 gotoxy(28+i,i+7); write(n); end;
 for j:=1 to 7 do begin
 TEXTCOLOR(J);
 gotoxy(36-j,j+13); write(n); end;
 for k:=1 to 7 do begin
 TEXTCOLOR(K);
 gotoxy(47-k,k+7); write(n); end;
 for l:=1 to 6 do begin
 TEXTCOLOR(L);
 gotoxy(40+l,l+14); write(n); end;
 end;
 UNTIL READKEY=#27;
end.