20 ваши.даны два числа x,y.cоставить алгоритм вычисления среднего арифметического s этих чисел,если x меньше y,или их разность r,если y меньше x.

Программу написать? Если да - то я уже тут.
//Язык Pascal

Var x,y,s :longint;
Begin
readln(x,y);
if (x<y) then
s:= (x + y) div 2
else s:= x-y;
if (x<y) and ((x+y) mod 2 <> 0 ) then
Writeln('Среднее арифметическое ',x,' и ',y,' = ',s,',5')
else if (x>=y) then 
Writeln('Разность ',x,' и ',y,' = ',s)
else Writeln('Среднее арифметическое ',x,' и ',y,' = ',s);
Readln(x); //Эта строчка нужна, чтобы программа остановилась в конце. Ее можно не писать, если ты не хочешь.
end.