| uses crt;
var
t,s:array[1..6]of string;
tus:char;
padi,kadi:string;
i:integer;
procedure yeni;
begin
clrscr;textcolor(white);
textbackground(9);writeln;writeln;writeln;
gotoxy(30,4);writeln(`YENI KAYIT`);
writeln;writeln;gotoxy(5,7);
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
