Нужно написать блок-схему: дана сторона равностороннего треугольника. найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей.

Сумма всех четных чисел от 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.

1) (а) т.к. должны присутствовать два первых обязательных символа имени НЕ обозначающих пустую последовательность, после которых следует набор символов "pri", а так же расширение должно иметь один обязательный символ. На месте "*" может присутствовать пустая последовательность. Первое имя файла удовлетворяет всем условиям маски.
2) (с)

маска (с) задаёт условие, что в имени файла должен присутствовать первый неизвестный символ НЕ обозначающий пустую последовательность, стоящий перед набором символов "as", а после него может идти любая последовательность символов(так же может быть пустая последовательность). В расширении файла должна присутствовать последовательность символов "wm" и далее любая последовательность.
Файл "asc.wma" не соответствует первому условию.