даю 25 балов
На паскале
дано целое число n (1<=n<=9999), определяющее стоимость товара в копейках . Выразить стоимость в рублях и копейках.
Пример: 3 рубля 21 копейка
 

program z1;var n,r,k: integer;beginwriteln('Введите число');readln(n);r:=n div 100;k:=n-r*100;writeln(n,' = ',r,' рубля ',k,' копейка');end.