На Паскале. В текстовый файл t1 записана последовательность целых чисел, разделенных пробелами. Написать программу, записывающую в текстовый файл t2 все положительные числа из t1.

Предыдущий
вопрос Следующий
вопрос

program PositiveNumbers;
var
input, output: text;
number: integer;
begin
Assign(input, 't1.txt');
Assign(output, 't2.txt');
Reset(input);
Rewrite(output);
while not eof(input) do
begin
Read(input, number);
if number > 0 then
begin
Write(output, number, ' ');
end;
end;
Close(input);
Close(output);
end.