Всі умови | Умова: Дано текстовий файл f. Видалити пробіли, що стоять в кінцях його рядків. Результат помістити в файл f1.
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №526)
program Pr526;
var
i : integer;
s : string;
f, f1 : Text;
begin
assign(f, 'in');
reset(f);
assign(f1, 'out');
rewrite(f1);
while not eof(f) do
begin
readln(f, s);
while s[length(s)] = ' ' do
s := copy(s,1,length(s)-1);
writeln(f1, s);
end;
close(f);
close(f1);
end.