program test;
var a,s:integer;
begin
a:=1;
s:=0;
while a<=5 do
s:=s+a;
a:=a+1
end;
write(s)
end.
15
Объяснение:
while условие do тело цикла
Цикл с предусловием (пока) выполняется если условие истинно
