Составить программу нахождения стоимости покупки,состоящей из нескольких тетрадей и карандашей​.паскаль.

program Purchase;

var

 ik, it: Integer;

 ck, ct: Double;

begin

 Write ('Количество карандашей и стоимость: ');

 ReadLn (ik, ck);

 Write ('Количество тетрадей и стоимость: ');

 ReadLn (it, ct);

 WriteLn ('Всего: ', ik * ck + it * ct :10 :2);

 ReadLn;

end.