Program Тест;
Var X,Y:integer;
Begin
Y:=0;
WriteLn('Цветковые растения имеют:1)побег,цветки,плоды с семенами;2)корень,побег, цветки,плоды с семенами;3)корень и побег.');
ReadLn (X); 
 If X =2 then Y:=Y+1 else WriteLn('Правильный ответ-2');
WriteLn ('Главной частью цветка являются:1пестик и лепесток;2)венчик и тычинки;3)тычинки и пестик.');
ReadLn(X);
If X =3 then Y:=Y+1 else WriteLn('Правильный ответ-3');
WriteLn('У голосеменных в отличие от покрытосеменных не образуются:1)цветки и плоды;2)семена;3)побеги.');
ReadLn(X);
If X=21 then Y:=Y+1 else WriteLn('Правильный ответ-1');
WriteLn('У цветковых растений плод образуется из:1)пыльника;2)завязи пестика;3)тычинок.');
ReadLn(X);
If X=2 then Y:=Y+1 else WriteLn('Правильный ответ-2');
WriteLn('Что не является плодом:1)боб;2)ягода;3)клубень.');
ReadLn(X);
If X=3 then Y:=Y+1 else WriteLn('Правильный ответ-3');
WriteLn('Ваша оценка -',Y);
end.