tarzını belirle
 

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.

buldum diyosun yanı ..:D

emeğe saygı