source: liacs/coco/tests/code-generation/testio1.p0@ 285

program testio;

var
  fnord: integer;
var
  cat: real;

begin
  fnord := readinteger;
  writeinteger(fnord);

  cat := readreal;
  writereal(cat)
end.