program test;
var sum, x: integer;
begin
   sum:=0;

   write('Enter the amount of chocolate: ');
   readln(x);
   sum:=sum+1200*x;

   write('Enter the amount of ice cream: ');
   readln(x);
   sum:=sum+3800*x;

   writeln('Total cost of purchase = ', sum);
   readln;
end.