Помогите с заданием по информатике. В программке 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.