Напишите программу которая вычислит произведение и среднеарифметическое цифр двухзначного числа

Program dv;
var a1, a2, N: shortint;
begin
readln(N);
a1:=N div 10;
a2:=N mod 10;
writeln(a1*a2);
writeln(((a1+a2)/2):4:4);
end.