Help,please Введіть ціле число n, n≤20. Обчисліть значення 2^n і виведіть покроково значення виразу при кожному значенні n.
n=1 => 2^1=2
n=2 => 2^2=4
n=3 => 2^3=8
n=4 => 2^4=16
n=5 => 2^5=32
В pascal!

Язык Python
num = raw_input("Введите число:") # Ввод числа с клавиатуры
tmp = list(str(num)) #Превращаем число в строку а строку в список
tmp.reverse() # Инвертируем строку
rez = [] # список под результат
for i in range(len(tmp)): # идем по индексам в tmp
  if i and not i%3: rez.append('.') #если i делится на 3 и не 0, добавляем в rez .
  rez.append(tmp[i]) # добавляем в rez элемент tmp
rez.reverse() # инвертируем результат
rez = "".join(rez) # сшиваем результат обратно в строку
print rez # вывод на экран

Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.