Вводится число программ n< =10. напечатать фразу "я разработал n программ", согласовав слово "программа" с числом n. предусмотреть ситуацию ввода n< 0. буду . решение через case of

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

program Znanija;
var n,i:integer;
begin

readln(n);

if n < 0 then 
begin

writeln('Я не разработал программ');
exit;

end;

write('Я разработал ', n, ' ');

case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;

end.