var
a,b,c:integer;
begin
a:=−21;
b:=abs(a);
writeln('abs(−21)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

При запуске программы вывод на экран:

у сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. одним з таких є інтернет. інтернет, напевно, став займати дуже важливе місце в житті кожної людини. він стосується всього, що має відношення до будь-якої інформації або обміну нею. в інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. однак далеко не факт, що інтернет дає одну лише користь. до всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.

по-перше, є чисто фізіологічний ризик. інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. отже, інтернет змушує тебе сидіти на одному місці і не рухатися. а це загрожує виникненням проблем зі здоров’ям. тому людина не повинна поринати в інтернет з головою. потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. в іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.

9 задание: 7

10 задание:

Иванов || 2000 || 240Петров || 2000 || 230Сидоров || 2001 || 200Козлов || 1998 || 200

Объяснение:

9 задание:

(Очки команды "Помидор" < 3) ИЛИ (Победитель = "Звёздочка")

Дата матча || Очки команды "Звёздочка" || Очки команды "Помидор" || Победитель

18.11 2012 || 2 || 1 || "Звёздочка" = 119.11 2012 || 3 || 4 || "Помидор"20.11 2012 || 3 || 1 || "Звёздочка" = 221.11 2012 || 2 || 1 || "Звёздочка" = 322.11 2012 || 1 || 2 || "Помидор" = 423.11 2012 || 2 || 1 || "Звёздочка" = 524.11 2012 || 0 || 2 || "Помидор" = 625.11 2012 || 2 || 3 || "Помидор"26.11 2012 || 1 || 0 || "Звёздочка" = 7

10 задание:

Сортировка по убыванию по полю " ".

Было:

Иванов || 2000 || 240Сидоров || 2001 || 200Петров || 2000 || 230Козлов || 1998 || 200

Стало:

Иванов || 2000 || 240Петров || 2000 || 230Сидоров || 2001 || 200Козлов || 1998 || 200

Идём от большего к меньшему.