program uzduotis_9;
var m1,dm1,cm1,m2,dm2,cm2,m3,dm3,cm3:real;
begin
  WriteLn('Iveskite atstuma tarp saulio ir taikinio');
  WriteLn('Metru?');
  Readln(m1);
  WriteLn('Decimetru');
  Readln(dm1);
  WriteLn('Centimetru');
  Readln(cm1);
  WriteLn('Iveskite atstuma koki paejo saulys');
  WriteLn('Metru?');
  Readln(m2);
  WriteLn('Decimetru');
  Readln(dm2);
  WriteLn('Centimetru');
  Readln(cm2);
  Writeln('Atstumas tarp saulio ir taikinio yra: ',m3:3:3 ,' metru ',dm3:3:3 ,' decimetru ',cm3:3:3 ,' centimetru' );
  m3:=m1-m2;
  dm3:=dm1*dm2;
  cm3:=cm1-cm2;
  readln;
end.