Помогите пожалуйста
Напишите программы для решения задач. Используйте операции div и mod.
1) задано двухзначное число. Найдите разность между количеством десятков и единиц.
2) площадь участка измеряется в арах. Найдите количество полных км².

1) vara:integer;beginwriteln('Введите число: ');readln(a);Writeln(n div 10 - n mod 10)end.2) vara:real;beginwriteln('Площадь в ар.: '); Read(a);Writeln('Кв,км: ',Trunc(a/10000))end.