Написать программу в паскале (вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел с четным порядковым номером)

Var a,i,s: integer; begin write('a='); readln(a); s: =0; i: =1; while a< > 0 do   begin   if i mod 2 =0 then s: =s+a;   i: =i+1;   write('a='); readln(a); end; writeln('s=',s); end.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
  var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
  Writeln(s) // вывод...
end.

Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.

Пример
А роза упала на лапу Азора
А роза на лапу Азора

Нелли
Потому что истинно- значит правильно , соответственно первая буква согласная и последняя буква гласная

Должно работать:
function f(x: real): real;
begin
f := 2*cos(abs(x))+0.5;
end;

var
a,b,h,i: integer;
begin
a := -12;
b := 4;
h := 1;
i := a;
while i <= b do
begin
writeln(i,,f(i));
i := i + h;
end;
end.