Точка RGB весит 3 байта.
300*200=60000 - количество точек
60000*3= 180000 байт
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
var s1,s2: string;
begin
writeln('Введите 2 слова:');
readln(s1);
readln(s2);
if s1[length(s1)]=s2[1]
then writeln('второе слово начинается с той же буквы, которой оканчивается первое слово')
else writeln('последняя буква первого слова отличается от первой буквы второго слова');
end.
var n,a,i,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do begin read(a);if a mod 2<>0 then k:=k+a;
end;
write(k);
end.