const
  Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
  Tans: array[1..5] of boolean = (true,true,false,true,false);

var
  s: string;
  i,count: integer;

begin
  writeln('Otvet: y or n');
  for i := 1 to 5 do
    begin
      writeln(Tqs[i]);
      readln(s);
      if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
        count := count + 1;
    end;
  writeln('Right answers: ',count);
  readln;
end.