Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n lt; 0 then
begin
writeln(Я не разработал программ);
exit;
end;
write(Я разработал , n, );
case n of
1:writeln(программу);
2..4:writeln(программы);
0,5..10:writeln(программ);
end;
end.