Составить блок схему и программу нахождения суммы удвоенных четных чисел в интервале от 15 до 90

Var k,summa:integer; begin for k:= 15 to 90 do if k mod 2 =0 then summa:= summa + 2*k; writeln(summa); end.