Даны три числа.вывести на экран те из них,чье удвоенное произведение меньше,чем среднее арифметическое этих чисел. по информатике

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.