Написать сообщение на тему применение компьютеров в разных областях человеческой деятельности​

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

сад гад год код кот                        

var

a : array[1..10] of intenger; b : intenger; begin

b: =1;

for i: = 1 to 10 do

  begin

a[i]: =i+i*i;

end; for i: = 1 to 5 do begin b: =b*a[i*2]; end;   for i: =1 to 5 begin writeln(' ',a[i*2]); end;   writeln('произведение элементов массива, стоящих на четных местах=',b);

end.

program n1; uses crt; const n=15; var a: array[1..n] of integer; b: array[1..n] of integer; i,k,max: integer; beginrandomize; clrscr; writeln('ishodny massiv'); for i: =1 to n do begin a[i]: =random(100); a[i]: =a[i]-50; write(a[i]: 4); end; writeln; writeln('polychenny massiv'); max: =0; for i: =1 to n do begin b[i]: =-a[i]; write(b[i]: 4); if a[i]=b[i] then k: =k+1; if (b[i]> 0)and(b[i]> max) then max: =b[i]; if (b[i]< 0)and(-b[i]> max) then max: =-b[i]; end; writeln; writeln('kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max); writeln end.