Задача 1. Дано трехзначное число. Найти и вывести сумму его цифр. Составить программу Paskal .
Задача 2. Дано целое число. Найти число его десятков. Например, у числа 326 ответом будет 2, так как 2 десятка. Составить программу Paskal.Помогите пожалуйста...

Задача 1:program z1;var a,b,c,sum : integer;beginread (a);b:=a mod 10;c:= a mod 100;c:= c div 10;a:=a div 100;sum:= a+b+c;writeln (sum);end.Задача 2:program z2;var a: integer;beginread (a);a:=a mod 100;a:= a div 10;writeln (a);end.