a = 1
n = 4 #odd
b = 3 #even
while a != -1:
a = int(input("Insert number:"))
if a == -1:
break
if > b
b += 1
if a > n
n += 1
print(odd)
var
a, b: <em>integer</em>;
begin
readln(a, b);
writeln(a - trunc(a / b) * b);
<span>end.</span>
var i,n,s,a: integer;
begin
write('Сколько чисел вы хотите ввести: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do
begin
read(a);
if a mod 3=0 then s:=s+a;
end;
write('Сумма чисел кратных трём: ',s);
end.