var
fin,fout: text;
s: string[4];
begin
assign(fin,'in.txt');
reset(fin);
assign(fout,'out.txt');
rewrite(fout);
while not eof(fin) do
begin
read(fin,s);
write(fout,s);
end;
close(fin);
close(fout);
end.
in.txt:
mamapapaz
Тов. препод утверждает, что в конце нового файла должны появиться пробелы. У меня их нет. Почему?