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

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