Написать программу, которая позволяет просматривать текстовые файлы (выводит на экран содержимое файла) , например, файлы исходных программ Turbo Pascal. Имя просматриваемого файла должно вводится во время работы программы. Рекомендуемый вид экрана приведен ниже. Просмотр текстового файла. Введите полное имя файла и нажмите . -> d:\tp\pasumb.pas

var f1:text;st:string;beginwrite ('введите имя файла ');readln(f1);reset (f1); { открыть файл для чтения }while not eof (f1) do { пока не конец файла  f1}beginreadln (f1, st);    {читаем строку из файла f1 }writeln(st);         { выводим на экран }end;close (f1); { закрыть файл  для чтения}end .