Написать в программе Паскаль:
Дано целое число. Если оно двузначное, найти сумму его цифр.

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.