Написать программу на паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. результат должен выводиться в денежном формате, например, 145руб. 30коп.

Program n_5;

var
   a, b: real;
   c: integer;

begin
  write('Введите стоимость тетради - '); readln (a);
  write('Введите стоимость обложки - '); readln (b);
  write('Введите кол-во тетрадей - '); readln (c);
  if (a <= 0) or (b <= 0) or (c <= 0) then exit;
  writeln;
  write('ИТОГО: ', trunc(c * (a + b)), ' руб. ', round(((c * (a + b)) - (trunc(c * (a + b*100), ' коп.');
end.