Klavyeden girilen ismi x şeklinde yazan program.

uses crt;
var
i,x:integer;
isim:string;
begin
clrscr;
x:=70;
readln(isim);
for i:=1 to 20 do begin
gotoxy(i*3,i);
writeln(isim);
x:=x-1;
gotoxy(66-3*i,i);
writeln(isim);
end;

readln;
end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-ismi-x-seklinde-yazan-program-t8599.0.html