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

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