Элементарно погода. И вообще все что вокруг.
<span><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.</span>
<u>Пример</u>
n= 8
1 1 2 3 5 8 13 21
Program n1;
var a: integer;
begin
write('введите номер месяца: ');
readln(a);
if( a>=1) and (a<3) then writeln('зима');
if(a>=3) and (a<6) then writeln('весна');
if (a>=6) and (a<9) then writeln('лето');
if(a>=9) and (a<13) then writeln('осень');
end.
RGB24 это формат sRGB с 24 bits per pixel. Это значит что в одном пикселе содержится 24 бита. Тогда получается что размер файла будет равен 24*32*128=98304 бита=12228 байт или 12.228 килобайт (КВ)