1. Потому что нет денег на покупку.
2. Потому что негде купить, или это слишком сложно
3. Потому что жалко денег.
4. Даже не подозревают, что нарушают какие-то там права.
Цифровые носители информации - компакт-диски, дискета, карты памяти
Думаю, немного нестандартный способ, но зато работает))
var s1,s2:string; i,n:integer;begin readln(s1); s2:=LowerCase(s1); writeln(s2); for i:=1 to length(s1) do if s1[i]<>s2[i] then inc(n); writeln(n);end.