Юуквосочитанием компьютер заменить все буквосочетания машина

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

цифровом виде.                                                                                        

var a,a1,a2,a3 : integer;  

begin

  readln(a);

  a1: =a div 100;

  a2: =(a mod 100) div 10;

  a3: =(a mod 100) mod 10;

  writeln(a1+a2+a3);

end.

  а - само число, а1-число сотен, а2-число десятков, а3-число единиц

var a,max: real;

      n,i: integer;

begin

  max: =0;

  readln(n);

  for i: =1 to n do begin 

    readln(a);

    if a> max then max: =a;

                          end;

  writeln(max);

end.