Klavyeden girilen adın v şeklinde yazan program.

uses crt;
var
i,x:integer;
isim:string;
begin
clrscr;
x:=70;
write(‘isim giriniz:’);readln(isim);
for i:=1 to 20 do begin
gotoxy(i,i);
writeln(isim);
x:=x-1;
gotoxy(x,i);
writeln(isim);
end;

readln;
end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-adin-v-seklinde-yazan-program-t8598.0.html