Program1.pas

procedure questions;
var i : integer; {счетчик}
s : string; {вспомогательная строка}
quest : array [1..5] of string; {массив вопросов}
answ : array [1..5] of string; {массив ответов}
begin
{Вопросы}
  quest[1]:='Как вас зовут?';
  quest[2]:='Сколько вам лет?';
  quest[3]:='Какой ваш любимый урок?';
  quest[4]:='Ваша будущая профессия -';
  quest[5]:='Оцените вопросы анкеты (от 1 до 5):';
{Работа с пользователем}
  writeln('Вам предлагается ответить на 5 вопросов анкеты');
  for i:=1 to 5 do
  begin
    writeln(i, ' вопрос:');
    writeln(quest[i]);
    readln(answ[i]);
  end;
  writeln;
{Вывод результата опроса}
  writeln('Результат:');
  for i:=1 to 5 do begin
  write(quest[i], ' ');
  writeln(answ[i]);
{Добавление комментариев к ответам пользователя}
  case i of
   1: writeln('РОБОТ: Хорошее имя');
   3: begin if (answ[3]<>'Информатика')
   then writeln('РОБОТ: В следующий раз подумай над этим получше'); end;
   4: begin if ((answ[3]='Информатика') and (answ[4]<>'программист') and (answ[4]<>'Программист'))
   then writeln('РОБОТ: Информатику любя, программистом будь.'); end;
   5: begin s:=answ[5]; if Ord(s[1])<52 then writeln('РОБОТ: Мы будем работать над этим'); end; end;
  end;
end;

{программа}
begin
questions;
end.

{ made by ALavrov }