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

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.