Pascal. Задача 6-3

Пользователь вводит 10 строк, в каждой из которых фамилия, имя и оценка ученика, разделенные пробелом. Записать эти строки в текстовый файл mylist.txt.

Решение

var
  f : text;
  s : string;
  i :integer;
begin
  Assign(f, 'C:\PABCWork.NET\mylist.txt');
  Rewrite(f);
  for i := 1 to 10 do begin
    Readln(s);
    Writeln(f, s);
  end;
  Close(f);
end.

◄▲►