#include <iostream>
int main()
{
int n;
std::cin>>n;
for(int i = 1; i<=30;i++)
{
if(i%n==0)
std::cout<<i<<"\n";
}
}
Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.
Во-первых, нельзя называть программу и переменную одним именем, а лучше вообще не пользоваться program. Во-вторых, максимально возможное из целых положительных integer=2147483647