var number,a,b:integer; begin writeln('Введите двузначное число'); readln(number); a:=number div 10; b:=number mod 10; writeln(a,' - Первая цифра числа'); writeln(b,' - Вторая цифра числа'); writeln('Среднее арифметическое цифр числа = ',(a+b)/2 ); end.
begin
writeln('Введите двузначное число');
readln(number);
a:=number div 10;
b:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln('Среднее арифметическое цифр числа = ',(a+b)/2 );
end.