Это значит, что время работы программы - квадрат числа, вводимого при старте. Используемая память зависит от программной среды и величины числа.
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях
Код находится во вложении.