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

В паскале написать?

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 lt; s then
    writeln(a,' ',b);
  if a * c lt; s then
    writeln(a,' ',c); 
 if b * c lt; s then
    writeln(b,' ',c);
end.