Pagalba su FPS

Reikia apskaiciuoti dvieju klasiu plota ir turi. Ir plota isreiksti m, cm ir mm, o turi tik m2 ir cm2. gal galite pasakyti kas cia yra blogai, kazkas su div ir mod, bet niekaip nesuprantu kas...

padariau sitaip:

program Bevardė0;

var x1,x1,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,il1,pl1,pl2,au1,au2,s1,s2,suma,v,m1,cm1,mm,m2,cm2:longint;

begin

read(x1,x1,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18);

il1:=x1*1000+x2*10+x3

pl1:=x4*1000+x5*10+x6;

au1:x7*1000+x8*10+x9;

s1:=2*(il1*pl1)+2*(il1*au1)+2*(pl1*au1);

il2:=x10*1000+x11*10+x12;

pl2:=x13*1000+x14*10+x15;

au2:=x16*1000+x17*10+x18;

s2:=2*(il2*pl2)+2*(il2*au2)+2*(pl2*au2);

suma:= s1+s2;

m1:=suma div 1000000;

cm1:=suma mod 1000000;

mm:=cm1 mod 100;

v:=il1*pl1*au1;

m2:= v div 1000000000;

cm2: v mod 1000000000;

WriteLn(m1,' ',cm1,' ',mm,m2,' ',cm2);

Readln;

readln;

end.