Решить задачу: Паскаль DIM k,s AS INTEGER s=2 for k=3 to 5 s= 2+k+s next k print s

Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16...

числа 2 числа 30. Алгоритм должен включать только команды 1 и 2, и состоять не более чем из 4 команд.

DIM k, s AS INTEGER
s = 0
FOR k = 6 TO 12
s = s + 5
NEXT k
PRINT s

Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)

1
2
3
4
5
6
7
8
9
10

var i, n: integer;
p :real;
begin
write('Введите n: ');
readln(n);
p:= 1;
for i:= 1 to n do
p:= p*2;
writeln('Результат = ', р);
end.

Program name;
Const n=15;
var a: array [1..n] of integer;
i,p:integer;
begin
p:=1;
for i:= 1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
for i:= 1 to n-1 do if a[i]+a[i+1]>10 then
begin
p:=0;
write(a[i],',',a[i+1],' ');
end;
if p=1 then writeln('NO');
end.