Не уточнили язык - получите паскаль. Мог бы сделать на С++
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.
Кажется, эта ссылка должна помочь!
https://support.office.com/ru-ru/article/%D0%92%D0%BE%D1%81%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D1%84%D0%B0%D0%B9%D0%BB%D0%B0-Office-4bddecb7-bf4f-4aad-b1b3-dab1633b5bbf
Сама с таким сталкивалась, но восстановить не получилось
Язык C++.
#include <iostream>
using namespace std;
int main () {
int a = 20;
int b = 23;
int c = 29;
cout << "Максимальное число: " << max(a, max(b,c)) << endl;
}
Var
a: integer;
begin
a := 0;
writeln('enter the value: ');
read(a);
if a < 0 then
write('negative')
else
write('positive');
if a mod 2 = 0 then
write(' even')
else
write(' odd');
end.