4 задание запишите в ячейки памяти числа

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Введите число a:');
  var n:=ReadInteger('Введите показатель степени n:');
  if n<=0 then begin
    Writeln('Показатель степени должен быть натуральным числом');
    Exit
    end;
  // перевод показателя степени в двоичную систему счисления
  var t:=n;
  var r:string:='';
  while t>=2 do (r,t):=(t mod 2+r,t shr 1);
  r:=t+r;
  // возведение в степень
  var (rr,i):=(a,2);
  while i<=r.Length do begin
    rr:=Sqr(rr);
    if r[i]='1' then rr*=a;
    i+=1
    end;
  Writeln(a,'^',n,' = ',rr)  
end.

Примеры
Введите число a: 3.182
Введите показатель степени n: 11
3.182^11 = 338611.675261463

Введите число a: 2
Введите показатель степени n: 10
2^10 = 1024

Первая задача:

class_a, class_b, class_c = int(input("Сколько детей в А классе? ")), int(input("Сколько детей в Б классе? ")), int(input("Сколько детей в В классе? "))

print("Для класса А нужно купить " + str(round(class_a / 2)) + " парт.\nДля Б " + str(round(class_b / 2)) + " парт.\nДля В " + str(round(class_c / 2)) + " парт.")

Объяснения:

Нам известно, что за каждой партой могут сидеть два ученика.

Чтобы узнать, сколько парт нам нужно купить для каждого класса, мы за количество учеников.

Дальше мы делим количество учеников каждого класса на два и округляем функцией round(число).

Вторая задача:

km = int(input("Сколько км машина проезжает в день?"))

path = int(input("Какова длина маршрута?"))

print("Машина проедет путь за " + str(path/km) + " дня(ей).")

Объяснения:

По условиям задачи запрашиваем, сколько км проезжает машина за день и длину маршрута.

Далее мы делим длину маршрута на км/день и получаем ответ на нашу задачу.

3ую задачу не решил, извиняюсь