var a,b,c:integer;
begin
Writeln('Введите два числа: ');
Read(a,b);
if a>0 then
Writeln('Среднее арифметическое: ', (a+b)/2)
else Writeln('Частность: ', a/b);
end.
var a,b,c:integer;
begin
Writeln('Введите два числа: ');
Read(a,b);
if a>0 then
Writeln('Среднее арифметическое: ', (a+b)/2)
else Writeln('Частность: ', a/b);
end.