program sum_of_odd_numbers;
var
n, i, sum: integer;
begin
sum := 0;
write('Enter a number n: ');
readln(n);
for i := 1 to n do
begin
if i mod 2 <> 0 then
sum := sum + i;
end;
writeln('The sum of the first ', n, ' odd numbers is ', sum);
end.

Программа запрашивает у пользователя число n, затем находит сумму первых n нечетных чисел и выводит результат на экран.