напишите программу которая вычисляет сумму первых десяти четных целых чисел

VAR
   i, sum, k: Integer;
BEGIN
   sum := 0; i := 2; k := 1;
   while (k < 11) do begin
      sum := sum + i;
      i := i + 2; 
      k := k + 1;
   end;

   Write(sum);
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.