Автомат принимает трёхзначное число, вычисляет сумму двух старших разрядов (сотен и десятков), а также сумму двух младших разрядов( десятков и единиц). Затем эти суммы выводятся на экран в порядке возрастания(без пробелов). Напишите программу, которая моделирует работу автомата на питоне

ответ на Pascal:

Program zadanie;

Var a,b,s1,s2,n:integer;

Begin  

Writeln('Введите 3-х значное целое число');  

Readln(n);  

a:=n div 100;  

b:=(n div 10) mod 10;  

s1:=a+b;  

a:=(n mod 100) mod 10;  

s2:=a+b;  

Writeln(s2,s1);

End.

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.