Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>
Логика ниже. Подгони под нужный яп:
read(n,k);
s:=0;
for i:=1 to n do s:=s+1^k;
print(s);
For i:=1 to m-1 do
for j:=i+1 to m do
<span>a[i,j]:=0;
</span>
Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.