Даны два числа, если 1>2,то составить программу для нахождения среднего арефметического. Если 2>1, то для нахождения среднего геометрического.
Можно в паскале

обнови

чтобы увидеть

var sa,sg,a,b:real;beginwrite('a: ');readln(a);write('b: ');readln(b);sa:=(a+b)/2;sg:=sqrt(a*b);if a>b then writeln(sa)else writeln(sg);end.