PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin var f:file of real; // создаем файл Rewrite(f,'MyFileOfReals.bin'); var a:=SeqRandom(10,1,30).Select(t->t/10).ToArray; a.Println; for var i:=0 to a.Length-1 do Write(f,a[i]); f.Close; // файл создан, далее собственно задание Reset(f,'MyFileOfReals.bin'); f.Seek(f.FileSize-1); var p:=f.Read; p.Println; f.Closeend.