implicit none
real :: X=1., Y=2., Z=3.
!Открытие пустого файла, запись данных и закрытие файла
open(1, file= "info.txt",STATUS='old', ACTION='write')
write(1,*) X, Y, Z
close(1)
!Открытие существующего файла, чтение данных и закрытие файла
open(1, file= "info.txt",STATUS='old', ACTION='read')
read(1,*) X, Y, Z
close(1)
!Вывод на экран данных, считанных из файла
print*, X, Y, Z
end