Чайнику с информатикой ! нужно! ​

Основана американским программистом шотландского происхождения Джоном Макафи в 1987 году под названием McAfee Associates. В 1992 году компания была зарегистрирована в штате Делавэр. В 1994 году Джон Макафи покинул компанию. В 1997 году в результате слияния McAfee с компанией Network General была образована новая компания под названием Network Associates. В 2004 году компания вернула себе первоначальное название в сокращённом виде — McAfee.[2] В 2010 году после переговоров, длившихся 1,5 года, компания Intel выкупила акции тогда ещё публичной компании McAfee (листинг на Нью-Йоркской бирже: MFE) за 7,68 млрд долларов[3]. В 2014 г. компания Intel переименовала McAfee в Intel Security. Логотипом новой компании стал красный щит использующийся прежне McAfee, изменили только название. Продукты компании сохранили фрагмент «McAfee» в составе своих наименований.[2] В сентябре 2016 года компания Intel продала 51% акций подразделения Intel Security, в состав которой входит McAfee. Новым совладельцем компании стал инвестиционный фонд TPG. Сумма сделки составила 3,1 млрд.долл. и будет закрыта во втором квартале 2017 года.[4]

1)
var s: string;
   p, a: integer;
begin
  read(s);
  p := strtoint(s[1]) * strtoint(s[2]);
  if (p.ToString.Length = 2) then writeln('a)Да')
else writeln('a)Нет');
  write('Введите a:');
  read(a);
  if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')
   else writeln('б)Нет');
  if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да')
else writeln('в)Нет');
end.
2)
var s:string;
begin
read(s);
if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then
write('Да')
else write('Нет');
end.