1) a = 3
b = 8
s = a + b > 10
print (s)

True/False

2)
x = 5
z = x <= 4
print(z)

True/False

3)
print('паті' + 'сон' == 'патісон')

True/False

4)
x = 3
y = 2
print(x*y+3 == x**y)

True False

5)
x = 5
print(-x + 2 == x - 2)

True False

6)
print('ABC' != 'abc')

True False

7)
print('#' in '#програмування')

Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.

program n_1;
 type
 m= array [1..5] of integer;
 var
 a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;
 b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;
 c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;
 d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;
 begin
 randomize;
 b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random;
 c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random;
 d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random;
 a:= (b+c+d) div 3;
 a1:= (b1+c1+d1) div 3;
 a2:= (b2+c2+d2) div 3;
 a3:= (b3+c3+d3) div 3;
 a4:= (b4+c4+d4) div 3;
 a4:= (b5+c5+d5) div 3;
 a6:= (b6+c6+d6) div 3;
 a7:= (b7+7c+d7) div 3;
 a8:= (b8+c8+d8) div 3;
 a9:= (b9+c9+d9) div 3;
 writeln ('Ученик-', a);
 writeln ('Ученик 1-', a1);
 writeln ('Ученик 2-', a2);
 writeln ('Ученик 3-', a3);
 writeln ('Ученик 4-', a4);
 writeln ('Ученик 5-', a5);
 writeln ('Ученик 6-', a6);
 writeln ('Ученик 7-', a7);
 writeln ('Ученик 8-', a8);
 writeln ('Ученик 9-', a9)
end.

Вот программа , если мы хотим сложить 2 квадрата одного числа
program sqr;
 var n,a: integer;
 begin
 write ('Введите число>>');
 read (n);
 a:= n*n+n*n;
 writeln (a)
end.

Но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться)
program sqr;
 uses crt;
 var n: integer; a,b:real;
 begin
 write ('Введите число>>');
 read (n);
 a:= sqrt(n);
 if (a= sqrt(n)) and (a=(n*n)) then
 begin
 b:= sqrt(a);
 if b= (a*a)+(a*a) then
 writeln ('Можно');
 if b<> (a*a)+(a*a) then
 writeln ('Нельзя');
 end;
 if (a= sqrt(n)) and (a<>n*n) then
 writeln ('Нельзя')
end.