Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Даны три числа.Вывести на экран те из них,чье удвоенное произведение меньше,чем среднее арифметическое этих чисел. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ

Ответ оставил Гость

Var
  a, b, c, S : real;
begin
  write(1 chislo: );
  readln(a);
  write(2 chislo: );
  readln(b);
  write(3 chislo: );
  readln(c);
  S := (a + b + c) / 3;
  if a * b < s then
    writeln(a, ,b);
  if a * c < s then
    writeln(a, ,c); 
 if b * c < s then
    writeln(b, ,c);
end.