Цикл Опции

[cxt]

На первую клетку он положил 1 зерно на 2 -2 на 3 -4 и т.д. на каждую следующую в 2 раза больше...

Не подскажете как это записать

при помощи sqr(x) ?

[cxt]

Код

program xxx;
uses crt;
var
a,i:integer;
begin clrscr;
writeln('Введите число (на доске 64 клетки)');
read(i);
for i:=1 to i do
a:=(a+2);
a:=a-2;
writeln('a,' зерен потребуются для заполнения доски');
end.

Помогите сделать чтобы когда вводишь 1 выводилось тоже 1 ,а не 0

пытался зделать через if но не получилось

Код

if i=1 then
begin
writeln('i,' зерен потребуются для заполнения доски');
end;
else
writeln('a,' зерен потребуются для заполнения доски');