Ответ:

program test;

var a,s:integer;

begin

a:=1;

s:=0;

while a<=5 do

begin

s:=s+a;

a:=a+1

end;

write(s)

end.

15

Объяснение:

while условие do тело цикла

Цикл с предусловием (пока) выполняется если условие истинно