Question

составить программу, которая вычисляет и печатает сумму квадратов чётных чисел от 12 до 20

Answer 1

Var
   A,S:integer;
Begin
S:=0;
A:=12;
Repeat
S:=S+A*A;
A:=A+2
Until A > 20;
WriteLn('S = ',S);
End.