Question

ПРОШУ ВАС
Пожалуйста​

Answer 1

Ответ:

var a, b: integer;

begin

 a:=5;

 b:=0;

 while a <> 1 do

   begin

     b:=b+a;

     a:=a-1;

     write(a,' ');

   end;

end.