1.
begin
var a,b:integer;
a:=1;
b:=0;
while a<=10 do begin
b:=b+a;
a+=1;
end;
writeln(b);
end.
2.
repeat
until a > 10;
