program Suma;
var s,a:integer;
begin
s:=0;
a:=5;
while a>0 do
begin
s:=s+a;
a:=a-1;
readln(a);
end;
writeln('sumata na chislata e=',s);
end.
cHJvZ3JhbSBTdW1hOwp2YXIgcyxhOmludGVnZXI7CmJlZ2luCnM6PTA7CmE6PTU7CndoaWxlIGE+MCBkbwogYmVnaW4KIHM6PXMrYTsKIGE6PWEtMTsKIHJlYWRsbihhKTsKIGVuZDsKd3JpdGVsbignc3VtYXRhIG5hIGNoaXNsYXRhIGU9JyxzKTsKZW5kLg==