Две задачи по информатике
Сделать на языке Pascal
1)четырём классам поручено убрать пол площадью F га. Известно количество учеников в каждом классе. Сколько га надо убрать каждому классу?
2)Дано действительное число a. Не пользуясь никакими другими операциями ,кроме умножения,получить : а) a^4 за две операции; б) a^6 за три операции
(^=степень)

1)var k1,k2,k3,k4:integer;f,f1,f2,f3,f4:real;beginwrite('F = ');readln(f);writeln('k1, k2, k3, k4:');readln(k1,k2,k3,k4);f1:=f/(k1+k2+k3+k4)*k1;f2:=f/(k1+k2+k3+k4)*k2;f3:=f/(k1+k2+k3+k4)*k3;f4:=f/(k1+k2+k3+k4)*k4;writeln('f1 = ',f1:5:2);writeln('f2 = ',f2:5:2);writeln('f3 = ',f3:5:2);writeln('f4 = ',f4:5:2);end.Пример:F = 5k1, k2, k3, k4:11 14 13 12f1 =  1.10f2 =  1.40f3 =  1.30f4 =  1.202)var a,a4,a6:real;beginwrite('a = ');readln(a);a4:=a*a; //a^2a4:=a4*a4; //a^4writeln(a,'^4 = ',a4);a6:=a*a; //a^2a6:=a6*a6*a6; //a^6writeln(a,'^6 = ',a6);end.Пример:a = 22^4 = 162^6 = 64