var
 a:char;
 b,IQ:real;
 b1,b2,b3,b4,b5,b6,b7,b8,b9:real;
 c,s:string;
begin
 writeln ('What is your name?');
 readln(c);
 writeln('Hello, ',c,'.Do you want to pass my exam (y/n)?');
 readln(a);
 If a='y' then
begin
writeln('1. 30,120,480. What is the next number?');
 readln(b);
 If b=1920 then writeln('Right!') else writeln('Wrong!');
 If b=1920 then b1:=1 else b1:=0;
writeln('2. 144,121,100,81,64.What is the next number?');
 readln(b);
 If b=49 then writeln('Right!') else writeln('Wrong!');
 If b=49 then b2:=1 else b2:=0;
writeln('3. 7,16,12,21 What is the next number?');
 readln(b);
 If b=17 then writeln('Right!') else writeln('Wrong!');
 If b=17 then b3:=1 else b3:=0;
writeln('4. 45,41,37,33 What is the next number?');
 readln(b);
 If b=29 then writeln('Right!') else writeln('Wrong!');
 If b=29 then b4:=1 else b4:=0;
writeln('5. 0,2,6,12 What is the next number?');
 readln(b);
 If b=20 then writeln ('Right!') else writeln('Wrong!');
 If b=20 then b5:=1 else b5:=0;
writeln('6. 1,3,5,...,11 What is the number?');
 readln(b);
 If b=7 then writeln('Right!') else writeln('Wrong');
 If b=7 then b6:=1 else b6:=0;
writeln('7. 1,1,2,3,5,8,... What is the next number?');
 readln(b);
 If b=13 then writeln('Right!') else writeln('Wrong!');
 If b=13 then b7:=1 else b7:=0;
writeln('8. 4,4,4,4=12,16,20... What is the next number?');
 readln(b);
 If b=24 then writeln('Right!') else writeln('Wrong!');
 If b=24 then b8:=1 else b8:=0;
b9:=b1+b2+b3+b4+b5+b6+b7+b8;
IQ:=100/8*b9;
writeln('Your result is ',b9:1:0,'/8');
writeln('Your IQ is ',IQ:1:0,'%');
writeln('The test was create by Zyoma');
readln(s);
 end;
 If a='n' then writeln('Goodbye:(');
end.