язык?
поищи на других сайтах
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.