dsd1-10 / dsd-08=skill / three

procedure(sn()

prog((p po str n len poz gr num)

p=infile("Spisok")

po=outfile("OUT")

len=fileLength("Spisok")

for(i 0 len

j=0

while((getc(p)!="\n")

j=j+1

fileSeek(p i 0)

)

fscanf(p "%s %d" gr num)

str=""

for(k 0 2

srtcat(str getchar(gr k))

)

if((str=="EKT") )

)

str=gets(k p)

n=fileTell(p)

return(str)

)

)