program for_school;
var
  answer : string;
  firstAnswer : string := 'день чудесный';
  secondAnswer : string := 'друг прелестный';
begin
  writeln('Продолжите строчку стихотворения А.С Пушкина "Мороз и солнце...":');
  readln(answer);
  if answer = firstAnswer then
  begin
    writeln('Верно!');
  end
  else
  begin
    writeln('Неверно!');
  end;
  writeln('Продолжите строчку стихотворения А.С Пушкина "Ещё ты дремлешь...":');
  readln(answer);
  if answer = secondAnswer then
  begin
    writeln('Верно!');
  end
  else
  begin
    writeln('Неверно!');
  end;
end.