ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ. ЗАРАНЕЕ СПАСИБО!

program msd; uses crt; var a,k,i,l: LONGINT; beginclrscr; readln (a); while true do beginl: =a mod 10; a: =a div 10; if l=5 then k: =k+1; if a=0 then break; end; if k=3 then writeln ('DA') eLSe WRITeLN ('NeT'); ReADKeY; eND.