инфа / проги инфа вар 1,2(родионова) / отработанная прга

Program main
Integer i,ns, ks, ltp, lt, n
Character*80 txt, sl
Logical fl
Write(*,*)'request char'
Read(*,'(A80)') txt
lt=len_trim(txt)
IF(txt(1:lt)=='') then
Write(*,*)'pystaya stroka'
else
ns=1
n=0
ks=index(txt,' ')
Do While (ks<=lt+1)
sl=txt(ns:ks)
ltp=ks-ns
fl=.true.
Do i=1,ltp/2,1
IF (sl(i:i)/=sl(ltp-i+1:ltp-i+1)) then
fl=.false.
End IF
End Do
IF (fl) then
n=n+1
Write(*,*)'response 200 No',n
Write (*,11) sl
11 Format (1x, 'palindrom : ', a)
End IF
ns=ks+1
ks=ks+index(txt(ks+1:),' ')
End Do
IF (n>0) then
Write(*,*)'response: kol-vo palindromov', n
else
Write(*,*)'response 404'
End IF
End IF
end