1)
program p1; var x:integer; begin writeln('Введите трёхзначное число'); readln(x); writeln('Самая левая цифра числа: ', x div 100); end.2)
program p2; var x,y:integer; begin writeln('Введите двухзначное число'); readln(x); y:=x div 10+x mod 10; writeln('Сумма цифр числа: ', y); end.
