Ввести три вещественных числа. Выбрать и распечатать те из них, значения которых больше или равны 100- Pascal(Паскаль)

program kk;

var
  a, b, c: real;
  t: text;

begin
  writeln('Vvedite tri chisla:');
  read(a, b, c);
  assign(t, 'LPT1');
  rewrite(t);
  if a >= 100 then
    writeln(t, a:2:2);
  if b >= 100 then
    writeln(b, a:2:2);
  if c >= 100 then
    writeln(t, c:2:2);
  close(t);

end.