RU: Напишите процедуру, которая выводит на экран переданное ей число в негадвоичной системе счисления, основание которой равно (–2). Например,
1011(-2)=1•(-2)3 +0•(-2)2 +1•(-2)1 + 1•(-2)0 =-8-2+1=-9
UKR:
Напишіть процедуру, яка виводить на екран передане їй число в негадвоічной системі числення, заснування якої дорівнює (-2). наприклад,
1011 (-2) = 1 • (-2) 3 + 0 • (-2) 2 + 1 • (-2) 1 + 1 • (-2) 0 = -8-2 + 1 = -9

Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй.
var
i:integer;
begin
writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20');
readln
end.

Вывести квадраты чисел от 1 до 10
var   
i: integer;
begin    
for i:=1 to 10 do      
writeln(i:4,'   ',sqr(i):4);    
readln
end.

Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие)
var
i,n:integer;
begin
writeln('Введите кол-во повторов числа: ');
readln(n);
for i:=1 to n do
writeln('5');
readln
end.

Условие ИЛИ истинно, если хотя бы одно высказывание истинно.

Таблица истинности для условия ИЛИ:

A или B    =    С1          1           11          0          10         1           10         0          0

Приставка НЕ означает истину, если высказывание ложно и ложь, если высказывание истинно (то есть она меняет истину и ложь)

Его можно понимать как высказывание "Первая буква не гласная"

Анна

НЕ (Первая буква гласная) 0

Последняя буква гласная   1

0 или 1 = 1

Истина

Максим

НЕ (Первая буква гласная)  1

Последняя буква гласная   0

1 или 0 = 1

Истина

Татьяна

НЕ (Первая буква гласная) 1

Последняя буква гласная   1

1 или 1 = 1

Истина

Егор

НЕ (Первая буква гласная) 0

Последняя буква гласная   0

0 или 0 = 0

Ложь

Антон

НЕ (Первая буква гласная) 0

Последняя буква гласная   0

0 или 0 = 0

Ложь