Написать в программе Паскаль:

Дано целое число. Если оно двузначное, найти сумму его цифр.

Program zadanie;

Var a, b:integer;

Begin

Writeln ('Введите целое число');

Readln (a);

If (a div 10>0) or (a div 10<0) Then

begin

b:=a div 10;

a:=a mod 10;

a:=a+b;

Writeln ('Сумма=', a);

end;

End.