Program Arif;
var a,b:integer
m:real;
begin
writeln('Vvedite chisla: ');
readln(a,b);
m:=(a+b)\2;
writeln('Srednyaya: ',m:2:2);
readln;
end;

<< Назад