Информатика

Поликсюша

16 июня, 04:40

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

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.