program mertekegyseg; uses crt; var a,m,dm,cm,mm:longint; begin clrscr; m:=0; dm:=0; cm:=0; mm:=0; writeln('Add meg a szamot!'); readln(a); m:=trunc(a/1000); dm:=trunc((a-1000*m)/100); cm:=trunc((a-(1000*m+100*dm))/10); mm:=a-(1000*m+100*dm+10*cm); writeln(a,'=',m,' m+',dm,' dm+',cm,' cm+',mm,' mm'); readln; end.