Question

hi, would you help me on my pascal programing home work?
i need a pascal source code that reads in text any number between 0 to 999.999

Answer 1

uses crt;
var a:integer;
var f:file;
begin
assign(f,'text.txt');
reset(f);
readln(f,a);
writeln(a);
end.