Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab03

program labrab03;
uses crt;
var a,b,c: integer;
begin
 clrscr;
 writeln(' Введте двухзначное число : ');
 read(a);
 b:=a div 10;
 c:=a mod 10;
 writeln(' сумма цифр = ', c+b);
 readln;
end.