Program a3_21;
uses crt;
var geom, arifm:real;
a,b:integer;
BEGIN
clrscr;
writeln('Введите число "a" ');
readln(a);
writeln('Введите число "b" ');
readln(b);
arifm:=(a+b)/2;
if (a>=0) and (b>=0) then
  begin
    geom:=sqrt(a*b);
    writeln('Среднее геометрическое равно ',geom:4:2)
  end
else writeln('Среднее геометрическое не определено для отрицательных чисел');
writeln('Среднее арифметическое равно ',arifm:2:2);
readln;
END.