Переведите из питона в паскаль defvert(ch,m): if(ch//10==m %10) and (ch%10== m//10) return 1 else: return 0 tmp=str ( ch=int(tmp[0])*10+int(tmp[1]) m=int((tmp[3])*10+int(tmp[4]) """print (ch,m)""" vr=0 whilenotvert(ch,m): m+=1 vr+=1 if m==60 m=0 ch+=1 ifch==24 ch=0 print(vr)