1. Найти среднее арифметическое и среднее геометрическое двух чисел.Написать программу (Паскаль)

program arifmeticheskoe;vara,b,sr:real;beginreadln(a,b);sr:=(a+b)/2;write(sr);end.program geometricheskoe;vara,b,sr:integer;beginreadln(a,b);sr:=SQRT(a*b);writeln(sr);end.