Простейшие циклы.

[Wild_klas]

Добрый вечер. У меня задача такого плана: Дано натуральне число n. Обчислити: 2^n (Знак ^ означает возведение в степень) я написал на это такую программу:

uses
  SysUtils,
  math;

Var n,y:real;
begin
Write('Input n = ');
Readln(n);
y:=power(2,n);
Writeln('y = ',y:4:2);
Readln;
end.

Работает. Но заморочка в том что это нужно сделать с помощью простейших циклов. Подскажите пожалуйста, как это осуществить?? Я не могу сообразить

[Mad_Cat]

Var y:real;
 i,n:integer; 
begin 
Write('Input n = '); 
Readln(n);
y:=1;
for i:=1 to n do
y:=y*2;
Writeln('y = ',y:4:2);
Readln; 
end.

[Wild_klas]

Спасибо, Mad_Cat.