написать программу в паскале, все перепробовала компиляции нет.2. Вычислить значение выражения по формуле: k=b(во 2 степени)+c(во 2 степени)-2bc (корень из)b-c Значения для проверки: если b = 0, c = 63, то k = 6. ответ вывести с одним знаком после запятой.3. Написать программу, которая вычисляет сумму покупки трех видов товаров: блокнот, сканворд и карандаши.Стоимость блокнота – 30 руб, сканворда – 20 руб, карандаша – 5 руб. Стоимость покупки зависит от количества проданного товара.Предлагаемый вид экрана.Количество блокнотов: 4 Количество сканвордов: 2Количество карандашей: 5 Стоимость покупки: 185 руб

Установка и загрузка операционной системы.
Операционные системы распространяются в форме дистрибутивов на оптических дисках. В первую очередь, необходимо провести установку операционной системы, в процессе которой файлы операционной системы копируются с оптического диска дистрибутива на жесткий диск компьютера.После установки файлы операционной системы хранятся в долговременной памяти на жестком диске, который называетсясистемным. Однако программы (в том числе операционная система) могут выполняться, только если они находятся в оперативной памяти компьютера. Поэтому необходима загрузка файлов операционной системы с системного диска в оперативную память.Загрузка операционной системы начинается в одном из трех случаев — в результате:включения питания компьютера;нажатия кнопки Reset на системном блоке компьютера;одновременного нажатия комбинации клавиш {Ctrl}+{Alt}+{Del} на клавиатуре.В процессе загрузки операционной системы сначала производится тестирование работо процессора, памяти и других аппаратных средств компьютера, причем краткие диагностические сообщения о процессе тестирования выводятся на экран монитора.После окончания загрузки операционной системы пользователь получает возможность управлять компьютером с использованием графического интерфейса операционной системы.

1 задание 
var
a:array[1..10000000] of integer;
sk:real;
i,n:integer;
begin
Write('Размер массива - ');
readln(n);
Write('Заполните массив - ');
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]+5,' ');
end;
writeln();
for i:=1 to n do
sk:=sk+sqrt(a[i]);
write('Сумма квадратов ',sk);
end.
2 задание
var
a:array[1..12] of real;
max,min:real;
i:integer;
begin
write('Введите сред. t за каждый месяц - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
max:=a[1];
 for i:=1 to 12 do
 begin
if a[i]>max then max:=a[i];
end;
min:=a[1];
 for i:=1 to 12 do begin
if a[i]<min then min:=a[i];
end;
writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');
end.
3 задание
var
a:array[1..12] of real;
sum:real;
i:integer;
begin
write('Введите учеников - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
for i:=1 to 12 do
begin
sum:=sum+a[i];
end;
sum:=sum/12;
writeln('Средний уровень успеваемости - ',sum);
end.