Var a, b, c:integer;
begin 
 write(Введите стоимость товара в копейках -gt;); 
 readln(a); 
 c:= a mod 100; 
 b:= a div 100; 
 write(Стоимость товара ,b, руб. ,c, коп.);
end.