[gokhanaygun]

uses crt;
var
a:array[1..9]of char;
x:integer;
begin
clrscr;
write('sifreyi giriniz:');
for x:=1 to 9 do
begin
gotoxy(x,1);
a[x]:=readkey;
gotoxy('*');
end;
gotoxy(20,20);
if a='GOKHANAYGUN' then
write(a)
else
write('hatalışifre');
readkey;
end.