Створити програму, яка заносить в масив всі парні числа від 1 до 199 і виводить їх на екран (Delphi). Треба написати як запрограмувати це завдання

1.

а)

а = а - 4 = 7 - 4 = 3

b = -a = -3

c = -a + 2 * b = -3 + 2 * (-3) = -3 - 6 = -9

б)

b = a + 4 = 2 + 4 = 6

b = 1 - b = 1 - 6 = -5

c = -b + 3 * a = -5 + 3 * 2 = -5 + 6 = 1

2.

a)

b = 5? (Нет, 0)

b: = b + 1 = 0 + 1 = 1

a: = a * 3 = 1 * 3 = 3

b = 5? (Нет, 1)

b: = b + 1 = 1 + 1 = 2

a: = a * 3 = 3 * 3 = 9

b = 5? (Нет, 2)

b: = b + 1 = 2 + 1 = 3

a: = a * 3 = 9 * 3 = 27

b = 5? (Нет, 3)

b: = b + 1 = 3 + 1 = 4

a: = a * 3 = 27 * 3 = 81

b = 5? (Нет, 4)

b: = b + 1 = 4 + 1 = 5

a: = a * 3 = 81 * 3 = 243

б)

b = 0? (Нет, 3)

b: = b - 1 = 3 - 1 = 2

a: = a * 4 = 1 * 4 = 4

b = 0? (Нет, 2)

b: = b - 1 = 2 - 1 = 1

a: = a * 4 = 4 * 4 = 16

b = 0? (Нет, 1)

b: = b - 1 = 1 - 1 = 0

a: = a * 4 = 16 * 4 = 64

Этой программе все равно, сколько слов во фразе и какой они длины. А заодно, ей все равно, сколько между словами пробелов...

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
procedure Times(a:array of string; pic:string; var n:integer);
begin
  n:=a.Where(s->s=pic).Count
end;

begin
  var s:=ReadlnString('>').ToWords;
  var k:integer;
  var w:='ЗНАЧИТ'; Times(s,w,k); Println(k,'-',w);
  w:='ВОТ'; Times(s,w,k); Println(k,'-',w);
  w:='АВТОМОБИЛЬ'; Times(s,w,k); Println(k,'-',w);
end.

Тестовое решение
> ВОТ ЗНАЧИТ КАКОЕ ДЕЛО БЫЛО ЕХАЛ ПО ДОРОГЕ АВТОМОБИЛЬ И ВОТ СТОИТ ЧЕЛОВЕК И ДУМАЕТ А ЧТО ЗНАЧИТ СЛОВО АВТОМОБИЛЬ А СЛОВО АВТОМОБИЛЬ ЭТО ОТ ГРЕЧЕСКОГО АУТОС (САМ) И ЛАТИНСКОГО МОБИЛИС (ПОДВИЖНЫЙ) ВОТ ТАКОЕ ЭТО СЛОВО
2 - ЗНАЧИТ
3 - ВОТ
3 - АВТОМОБИЛЬ