Доказать что наименьшее общее кратное это примитивно рекурсивная функция

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.

ответ: 2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

Объяснение:

1 ВАРИАНТ)

var

x:char;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. для x указан тип данных - символьный. var  x:char;

2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

ПОДХОДИТ, Т.К. всё верно.

3 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

end.

НЕ ПОДХОДИТ, Т.К. программа не делает вывод ответа.

4 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)*(2+7);  

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. допущена ошибка при записи уравнения. Указано умножение, вместо деления (32+45) * (2+7)