al bakalım ..madem öle ..ama mantığı kavra..
uses crt;
var
a,s:string;
i,j:byte;
begin
clrscr;
writeln('ad gir..');
readln(a);
writeln('soyad gir..');
readln(s);
repeat
gotoxy(i+1,i-1);
textcolor(i);
writeln(a,'',s);
i:=i+1;
until keypressed;
readln;
end.
kolay gelsin
|