Видоизменить диалог с компьютером, начатый в 4.15. Пусть компьютер, узнав возраст человека, дальнейшую беседу ведет по двум вариантам. Если возраст больше 17, то компьютер должен задать вопрос: "В каком институте ты учишься?" и получив ответ, глубокомысленно заметить "Хороший институт". Если же возраст меньше или равен 17, то соответственно - "В какой школе ты учишься?" и "Неплохая школа". После этого, каков бы ни был вариант, компьютер должен попрощаться: "До следующей встречи!".

Var a, b, c, d :Integer;
BEGIN
  Writeln ('ЏаЁўҐв, п вў®© Є®¬ЇмовҐа. Љ*Є вҐЎп §®ўгв?');
  Readln (a);
  writeln ('Ќг * бЄ®«мЄ® ⥡Ґ «Ґв,', a, '?');
  Readln (b);
  if b<15
    then
       Begin
         Writeln ('‚ Є*Є®© иЄ®«Ґ вл гзЁибп?');
         readln (c);
         Writeln ('Ќ®а¬*«м**п иЄ®«*?');
         Readln (d);
         writeln ('Џ®*пв*®, б®згўбвўго');
       End
    else
       Begin
         writeln ('‘в*а®ў*в, ®¤**Є®');
       End;
  Writeln ('Ќг, Ўлў*©');
  readln;
END.

Var 
 a, d :String;
 b, c :Integer;
BEGIN
  Writeln ('ЏаЁўҐв, п вў®© Є®¬ЇмовҐа. Љ*Є вҐЎп §®ўгв?');
  Readln (a);
  writeln ('Ќг * бЄ®«мЄ® ⥡Ґ «Ґв,', a, '?');
  Readln (b);
  if b<15
    then
       Begin
         Writeln ('‚ Є*Є®© иЄ®«Ґ вл гзЁибп?');
         readln (c);
         Writeln ('Ќ®а¬*«м**п иЄ®«*?');
         Readln (d);
         writeln ('Џ®*пв*®, б®згўбвўго');
       End
    else
       Begin
         writeln ('‘в*а®ў*в, ®¤**Є®');
       End;
  Writeln ('Ќг, Ўлў*©');
  readln;
END.