Помогите пожалуйста!!
Единица товара стоит a рублей b копеек. Было куплено n штук этого товара. Сколько рублей и копеек пришлось заплатить за всю покупку? На вход программе подаются три целых числа: 0  a  30 000, 0  b < 100 и 0  n  30 000. Выведите два искомых числа.

проверь

спс

var a,b,n,a1,b1: integer;  begin  write('Введите рубли: ');  readln(a);  write('Введите копейки: ');  readln(b);  write('Введите количество: ');  readln(n);  readln(a,b,n); if(a>0) and (a<30000) and (b>0) and (b<100) and (n>0) and (n<30000) then begin  b1 := b * n mod 100; a1 := a * n + b * n div 100;   writeln('Рублей ',a1);  writeln('Копеек ',b1);   end else writeln('Ошибка ввода');  end.