TP3/shell/tests/fixtures/t128_intreal.pas

program intreal;
var A, B : integer;
    E : real;
begin
  A := 9;
  B := 2;
  E := A / B;
  writeln(E:0:2)
end.