Объяснение:
Pascal:
var a,b:integer;
begin
a:=5;
b:=0;
while a<>1 do
a:=a-1;
b:=b+a
end;
writeln(b)
end.
