Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
Точка RGB весит 3 байта.
300*200=60000 - количество точек
60000*3= 180000 байт