Напишите праграмму в паскале 7 класс по этим 30 ! 1. задано двузначное число. найдите среднее арифметическое цифр числа. 2. площадь участка измеряется в арах. найдите количество полных км квадратных

Var x, x1, x2 :integer;y:real;begin  //Ввод  writeln ('Введите число');  readln (x);  //решение x1:=x mod 10; {x1 записываем единицы} x2:= x div 10;{x2 записываем десятки} y:=(x1+x2)/2;  //вывод writeln (y);  end.