Question

Pascal. Создайте программу для считывания типизированого файла и вывода информации на экран

Answer 1

uses crt;
var s: string; f: text;
begin
clrscr;
  assign(f,'text.txt');
  reset(f);
  while not eof(f) do
  begin
  readln(f,s);
  writeln(s);
  s:='';
  end;
end.