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

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.