Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на

Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль
Program Programm;
var n:string; a:integer; b:integer; c:integer; answer: integer;
begin
write ('Как вас зовут:');
readln (n);
writeln ('Привет, ',n,'!');
Writeln ('Давай приступим к тесту!');
Writeln ('Сколько раз подмигивает человек в день?');
Write (a: 2800, b: 3500, c: 4000 );
readln (a);
readln (b);
readln (c);
if answer=a then writeln ('Правильно!');
if answer=b then writeln ('Не правильно!');
if answer=c then writeln ('Не правильно!')
end.