TYPE
EXO=^O;
O=record
Data: integer;
Next:EXO;
end;
var BeginO,EndO:EXO;
Procedure createO(Var BeginO,EndO:EXO);
Var
u:EXO; f1:text;
Begin
Assign(F1,'DAN.inp');
Reset(f1);
Assign(output,'res.out');
rewrite(output);
While not EOF(f1) do
Begin
new(u);
Readln(f1,u^.data);
writeln(u^.data);
u^.Next:=Nil;
If BeginO=Nil then
BeginO:=u else
EndO^.next:=u;
EndO:=u;
End;
end;
Begin
createO(BeginO,EndO);
end.
![]() |