А вот и игра

Program PR5;
Var A,B,C,D:real;
Begin
Writeln ('Здравствуйте!Вы в программе "Кто хочет стать миллионером"');
Writeln ('Сколько будет 2x3?');
Writeln ('1.7 2.15 3.6 4.8');
Read (A);
If A=3 THEN Writeln ('Правильно. Вы получаете 100 баллов.')
       ELSE Writeln ('Неправильно. Вы не получаете баллов.');
Writeln ('Следующий вопрос.');
Writeln ('Сколько будет 6x6?');
Writeln ('1.30 2.15 3.20 4.36');
Read (B);
If B=4 THEN Writeln ('Правильно. Вы получаете 100 баллов.')
       ELSE Writeln ('Неправильно. Вы не получаете баллов.');
Writeln ('Следующий вопрос.');
Writeln ('Сколько будет 10x10?');
Writeln ('1.10 2.100 3.20 4.50');
Read (C);
If C=2 THEN Writeln ('Правильно. Вы получаете 100 баллов.')
       ELSE Writeln ('Неправильно. Вы не получаете баллов.');
If A=3 THEN D:=100
       ELSE D:=0;
If B=4 THEN D:=D+100
       ELSE D:=D+0;
If C=2 THEN D:=D+100
       ELSE D:=D+0;
Writeln ('Вы получили баллов: ',d)
End.