Var n:integer;
begin
readln(n);
writeln(power(2,n));
<span>end.
var i,s:integer;
begin
for i:=35 to 132 do
s+=i;
writeln(s);
<span>end.</span></span>
Uses crt;
var x,y,z:real;
begin
read(x,y,z);
if x+y+z>x*y*z then
writeln(x+y+z)
else
writeln(x*y*z);
<span>end.</span>
Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
begin
a[i]:=random(101);
write (a[i]:4);
end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
{выводим результат}
writeln();
writeln(' Максимальный элемент ',max);
writeln(' Минимальный элемент ',min);
writeln(' Размах между максимальным и минимальным элементами ',max-min);
end.
Алик - Симонов, Володя - Лунин, Миша - Петров, Юра - Балашов
ПРОСТИТЕ ЗА КАЧЕСТВО