Klavyeden girilen 5 adet ismin iki tarafta birer birer atlayarak yazan program.

uses crt;
var
a,x,y:integer;
ad:string;
begin
clrscr;
x:=1;y:=60;
for a:=1 to 5 do
begin
gotoxy(1,1);
writeln('adınızı giriniz');readln(ad);
gotoxy(1,2);
writeln('               ');
gotoxy(x,a+7);
x:=x+2;

writeln(ad);
gotoxy(y,a+7);
y:=y-2;
writeln(ad);
end;
readln;
end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-5-adet-ismin-iki-tarafta-birer-birer-atlayarak-yazan-program-t8597.0.html