Типизированные файлы, pascal 1.ввести с клавиатуры целое число n (> 1). создать файл целых чисел и записать в него n первых положительных четных чисел (2, 4, …). 2.вывести содержимое файла на экран.

Program n1;
var n,i: longint;
t: text;
s: string;
begin
readln(n);
assign (t,'file.txt');
rewrite(t);
for i:=2 to n do if i mod 2=0 then write(t,i,' ');
close(t);
assign(t,'file.txt');
reset(t);
read(t,s);
write(s);
close(t);
end.