Язык питон вознагрождение 15 единица товара стоит a рублей b копеек. было куплено п штук этого товара. сколько рублей и копеек пришлось заплатить за всю покупку? на вход программе три целых числа: 0≤а≤30000, 0≤b≤100 и 0≤n≤30000. выведите два искомых числа. примеры входных данных 10 15 2 2 50
4 примеры выходных данных 20 30 10 0
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.