Verified answer

program Cina;

 var

   k1: integer = 5;

   k2: integer = 3;

   c1: real = 32100;

   c2: real = 29500;

   suma: real = 0;

begin

 suma := k1 * c1 + k2 * c2;

 writeln (suma);

end.