Решение в прикрепленном файле.
Тут есть два варианте решения, у Вас в задании написано что число Х и число А уже даны, то бишь с клавиатуры вводить их не надо. Тогда 1 вариант решения 1. и 2. задания:
1)
var x: integer;
begin
x:=5; // Поменяйте значение на нужное
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
a:=3; // Поменяйте значение на нужное
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
2 вариант решения, все значения вводятся с клавиатуры:
1)
var x: integer;
begin
write ('Введите число Х: '); read(x);
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
write ('Введите число А: '); read (a);
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
...
for i:={значение икс, с которого начнется табуляция} to {значение, до которого будет табулироваться} do
writeln(i, {функция в которой вместо икс писать i});
Одна цифра восьмеричного числа = три числа в двоичной системе.
т.к 8 = 2^3. число должно быть четырехзначным, следовательно в двоичной системе это число должно содержать 12 цифр (или 4 триады, т.е 4 группы цифр по три знака в каждой)
максимальное четырехзначное число в восьмеричной системе, это - 7777, в двоичной записи оно будет выглядеть вот так : 111 111 111 111. наибольшее четырехзначное восьмеричное число, двоичная запись которого содержит 4 нуля, в двоичной системе будет выглядеть так - 111 111 110 000, т.е мы заменили единицы 4 нулями и при этом, поставили их в младшие разряды, т.к по условию нам нужно наибольшее число.
если перевести это число в восьмеричную систему, получим 7760
ответ : 7760.