uses crt;
var a,k: Integer;
Begin
 
textbackground(blue);
clrscr;
 k:=0;
 writeLn('Тест по теме:"многообразие растений"');
 WriteLn ;
 WriteLn ;
 WriteLn ;
 WriteLn('Нажмите клавишу enter');
 readln;
 clrscr;
 WriteLn ;
 WriteLn('Ответьте на вопросы теста.');
 WriteLn ;
 WriteLn ;
 WriteLn('1. деревья?');
 WriteLn;
 writeLn('1) банан');
 WriteLn('2) пшеница');
 WriteLn('3) рис ');
 WriteLn('4) яблоня ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа и нажмите клавишу enter:');
 Readln(a);
 if a=4 then k:=k+1;
 clrscr;
 WriteLn('2. кустарники:');
 WriteLn;
 writeLn('1) груша ');
 WriteLn('2) шиповник');
 WriteLn('3) томат ');
 WriteLn('4) тёрн лесной ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа и нажмите клавишу enter:');
 Readln(a);
 if a=2 then k:=k+1;
 clrscr;
 WriteLn('3. травы:');
 WriteLn;
 writeLn('1) петунья');
 WriteLn('2) вишня ');
 WriteLn('3) перец ');
 WriteLn('4) пастушья сумка ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа и нажмите клавишу enter:');
 Readln(a);
 if a=4 then k:=k+1;
 clrscr;
 WriteLn('4. многолетние растения');
 WriteLn;
 
 
 WriteLn('1) капуста ');
 WriteLn('2) рожь ');
 WriteLn('3) слива ');
 WriteLn('4) морковь ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=3 then k:=k+1;
 clrscr;
 WriteLn('5. двулетние растения');
 WriteLn;
 writeLn('1) редька ');
 WriteLn('2) клён ');
 WriteLn('3) шиповник ');
 WriteLn('4) огурец ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=1 then k:=k+1;
 clrscr;
 WriteLn('6. однолетние растения');
 WriteLn;
 writeLn('1) баклажаны ');
 WriteLn('2) орешник ');
 WriteLn('3) калина');
 WriteLn('4) клён ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=1 then k:=k+1;
 clrscr;
 WriteLn('7. сухие плоды: ');
 WriteLn;
 
 WriteLn('1) семянка ');
 WriteLn('2) ягода');
 WriteLn('3) костянка ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=1 then k:=k+1;
 clrscr;
 WriteLn('8. сочные плоды: ');
 WriteLn;
 writeLn('1) орех ');
 WriteLn('2) костянка ');
 WriteLn('3)  зерновка');
 WriteLn('4) боб ');
 
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=2 then k:=k+1;
 clrscr;
 WriteLn('9. распространение семян животным ');
 WriteLn;
 writeLn('1) рябина ');
 WriteLn('2) жёлтая акация ');
 WriteLn('3) клён ');
 WriteLn('4) бешенный огурец ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
 Readln(a);
 if a=1 then k:=k+1;
 clrscr;
 WriteLn('10. распространение семян ветром ');
 WriteLn;
 writeLn('1) лопух ');
 WriteLn('2) одуванчик ');
 WriteLn('3) брусника ');
 WriteLn('4) кувшинка белая ');
 WriteLn;
 WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=2 then k:=k+1;
 
 
 textbackground(red);
 clrscr;
 Case k of
 9..10: WriteLn('Вы получили отметку "5". Похвально! И это с первого раза!');
 7..8: WriteLn('Вы получили отметку "4". Рада за Вас. ');
 5..6: WriteLn('Вы получили отметку "3". Будьте внимательны.');
 Else WriteLn('Вы получили отметку "2". Учиться, учиться, и ещё раз учиться! ');
end;
 ReadLn
 End.