program raf105;
var
a:array[1..6] of integer;
n,i: integer;
begin
write('Введите шестизначное число: ');
readln(n);
a[1]:= n div 100000;
a[2]:= (n div 10000) mod 10;
a[3]:= (n div 1000) mod 10;
a[4]:= (n div 100) mod 10;
a[5]:= (n div 10) mod 10;
a[6]:= n mod 10;
write('Вывод: ');
for i:= 1 to 6 do
write(a[i],' ');
end.
<h3>PascalABC 3.4.2</h3>
монитор, видеоадаптер(видеокарта), электроконвектор
Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.