menu
 

uses crt;
var
tus:char;
soyad,tck,isim:string;

procedure anamenu;
begin
clrscr;
textcolor(red);
gotoxy(30,20); write('[ 1 ] ISIM GIRISI');
gotoxy(30,22); write('[ 2 ] SOYAD GIRISI');
gotoxy(30,24); write('[ 3 ] TC KIMLIK NO');
gotoxy(30,26); write('[ ESC ] CIKIS');
gotoxy(16,34); write('pascal hakkinda sorulariniz varsa msn de yim.');
gotoxy(23,36); write('gencturk55@messengeruser.com');
tus:=readkey;
end;

procedure sisim;
begin
CLRSCR;
gotoxy(30,25); write('ismi giriniz..:');
gotoxy(45,25); readln(isim);
end;


procedure soyads;
begin
CLRSCR;
gotoxy(30,25); write('soyad giriniz..:');
gotoxy(46,25); readln(soyad);
end;


procedure tcno;
begin
CLRSCR;
gotoxy(30,25); write('tc kimlik no giriniz..:');
gotoxy(53,25); readln(tck);
end;

begin {ANA MENU}
repeat
anamenu;
if tus='1' then begin sisim; end;
if tus='2' then begin soyads; end;
if tus='3' then begin tcno; end;
until tus=#27;
end.

emeğe saygı