function q (a:integer):integer; var h,n:integer; begin n:=a; h:=0; q:=0; while n>0 do begin n:=n div 10; h:=h+1; end; if h = 5 then begin n:=a div 10000; if n=3 then if a mod 2 = 0 then q:=1; end ; end;
begin readln(a); i:=a; while q(i)<>1 do begin writeln('Error'); readln(a); i:=a; q(i); end; while a>0 do begin s:=s+a mod 10; a:=a div 10; end; writeln(s); end.
var
a, b, c: integer;
{НОД двух чисед}
function gcd(a, b: integer): integer;
var t: integer;
begin
while b > 0 do
begin
t := b;
b := a mod b;
a := t;
end;
gcd := a;
end;
{Проверка трех чисел на взаимную простоту}
function isCoprime(a, b, c: integer): boolean;
begin
isCoprime := gcd(gcd(a, b), c) = 1;
end;
begin
read(a, b, c);
if isCoprime(a, b, c) then write('Числа взаимно простые')
else write('Числа не являются взаимно простыми');
end.