Program s;
var
b:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
b[i]:=i*i-4;
writeln(b[i]);
end;
end.
Если у тебя c нужно вводить, то смотри на первый скрин, а если c уже дано, то смотри на второй.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
Тут решение сложное обращайся к поисковику