3) var a:array [1..1000] of longint; n,k,i:integer;
<span>begin </span>
<span>readln(n); k:=0;</span>
for i:=1 to n do
read (a[i]);
for i:=1 to n do
<span>if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.</span>
var x: integer;
begin
write('Введите номер месяца: ');
readln(x);
if (x = 9)or(x = 10) then writeln('I четверть');
if (x = 11)or(x = 12) then writeln('II четверть');
if (x = 1)or(x = 3) then writeln('III четверть');
if (x = 4)or(x = 5) then writeln('IV четверть');
end.