Как решить задачу в Паскале (тема - оператор цикла с предусловием): "Найти сумму А кратных 11 натуральных чисел
Запишите.пожалуйста,решение.

var a,i,s,h:integer;begin;s:=0; //0 кратен любому числуh:=0;readln(a);while i<>a dobegin;inc(i);s:=s+h;h:=h+11;end;writeln(s);end.