Question

ДАЮ 50 БАЛЛОВ
Переведите из Python в Pascal:
a = int(input())
b = int(input())
s = 0
for i in range(a, b + 1):
if i % 2 == 0:
s += i
else:
s -= i
print(s)

Answer 1

var a, b, s, i: integer;

begin

read(a, b);

s := 0;

for i := a to b do

   if (i mod 2 = 0) then

       s := s + i

   else

       s := s - i;

writeln(s);

end.