Ну же ребят, ну помогите

вводится числа найти сумму этих чисел не превосходящую S

1

Ответы и объяснения

2014-01-16T18:10:44+00:00
Program zzz;
var a, s, s1 : integer;
begin
s:=0;
WRITELN ( ' Введите ограничение суммы, целое число' );
readln (s1);
WHILE s < s1 do 
begin 
writeln ( ' Введите целое число для сложения' );
readln(a);
s:= s+a;
end;
WRITELN ( 'Сумма введенных чисел достигла предела и равна  ',s );
end.