Если покрасить надо весь кабинет (потолок, пол и стены)
Если на Pascal:
var a, b, c, d, e, f, s: integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
s:=2*(a*b)+2*(a*c)+2*(b*c);
e:=s*d;
f:=5*e;
writeln(f);
end.
Если на Python:
import sys
a=int(sys.stdin.readline())
b=int(sys.stdin.readline())
c=int(sys.stdin.readline())
d=int(sys.stdin.readline())
s=2*(a*b)+2*(a*c)+2*(b*c)
e=s*d
f=5*e
print(f)
var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.