Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ

Составим программу на языке программирования PascalПервый вариант:varsum, x: real;i: integer;begini := 1;sum := 0;repeatreadln(x);if not odd(i) thensum := sum + x;inc(i);until (x = 0);writeln(sum);end.Второй вариант:var a,i,s:integer;beginwrite(\'a=\'); readln(a);s:=0;i:=1;while a<>0 dobeginif i mod 2 =0 then s:=s+a;i:=i+1;write(\'a=\'); readln(a);end;writeln(\'s=\',s);end.