Спо информатике. в программе pascal abc

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.