Вариант программы и результата её выполнения на скриншотах.
<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
В 1623г В. Шикард придумал первый механический калькулятор, который выполнял четыре арифметических действия
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var s1:=new Stack<integer>;
var s2:=new Stack<integer>;
foreach var e in Range(1,10) do s1.Push(e);
s1.Println;
foreach var e in Range(20,25) do s2.Push(e);
s2.Println;
foreach var e in s2.Reverse do s1.Push(e);
s1.Println
end.
<u><em>Тестовое решение:</em></u>
10 9 8 7 6 5 4 3 2 1
25 24 23 22 21 20
25 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1
char months[][4]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
unsigned int num;
scanf("%u",&num);
if(num<=12) printf("%s",months[num-1]);
else printf("invalid number");