Написать программку на Паскале для вычисления стоимости покупки, состоящей из нескольких

Program n_5;

var
   a, b: real;
   c: integer;

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