5 "Г" задание на лето

Шаблон для написание программы "Тест" (Нажми далее...). (5 загадок)
1.Скорей на берег выбегай плывет зубастый ...

 

2.Траву и солому Жует постоянно, а после дает молоко ...

uses crt;
var k:integer;
     s:string;
begin
 ClrScr;
 k:=0;
 Writeln('Вопросы');

 Writeln('');  //здесь пишешь свой вопрос, в нашем случае загадку.
 Writeln('a) '); //здесь варианты ответа, в нашем случае разгадку.
 Writeln('b) '); Writeln('c) ');
 Readln(s);
  if s='a' then  // правильный вариант ответа
   k:=k+1;
  end;
  ClrScr;
 Writeln('');
 Writeln('a) '); Writeln('b) '); Writeln('c) ');
 Readln(s);
  if s='a' then
   k:=k+1;
  ClrScr;
   Writeln('');
  Writeln('a) ');  Writeln('b) ');  Writeln('c) ');
  Readln(s);
   if s='a' then
    k:=k+1;
  ClrScr;
  Writeln('');
  Writeln('a) ');  Writeln('b) ');  Writeln('с) ');
  Readln(s);
    if s='c' then
     k:=k+1;
    ClrScr;
  Writeln('');
  Writeln('a) ');  Writeln('b) ');  Writeln('c) ');
  Readln(s);
   if s='c' then
    k:=k+1;
  ClrScr;
  Writeln('Оценка ',k);
  Readln;
 end.