Вводится число программ Namp;lt;=10. Напечатать фразу "Я разработал N программ", согласовав

Не уточнили язык - получите паскаль. Мог бы сделать на С++ 

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.