Распределите данные программы на три вида: · прикладные программы, системные программы, инструментальные системы . ms word, c++,open office org calc , corel draw, gimp, 1с бухгалтерия, borland pascal, 7zip, acrobat reader, promt, avira, 3d max, qbasic, cc cleaner, everest, ms powerpoint, drweb, winrar, windows7, adobe flash, power dvd, linux ubuntu, avast, adobe photoshop, macromedia dreamveaver. выполнить ! если можно побыстрее! заранее огромное ! : )

режим разметки страницы,режим структуры,режим чтения.режим веб документа-

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.