Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.
Написать программы на паскале по 3-м циклам.

program Project1;   uses   Crt;   var   k, summa : Word;   n, i : Byte;   begin   Clrscr;   Write('Input k= '); Readln(k);   write('Input n= '); Readln(n);   summa := 0;   i := 1;   while ((i <= n)) do   begin     if ((k mod 2) = 0) then     begin       summa := summa + k;       Inc(i);     end;     Inc(k);   end;   Writeln('Summa= ',summa);   Readln; end.