На Паскале вычислить степень "2" с использованием цикла FOR.

program ex23;
uses Crt; {Подключение модуля работы с экраном}
var i, n: integer;
x: longint;
Begin
ClrScr; {Очистка экрана}
x:=1;
Write('Введите число N= ');
ReadLn (N);
for i:=1 to n DO
begin
X:=X*2 ;
write(X:10);
if i mod 5=0 then WriteLn
end;
ReadLn;
end.