Var A,S:integer;
Begin
A:=30;
S:=0;
While A >= 20 do
Begin
Write(A, );
S:=S+A;
A:=A-5;
End;
WriteLn;
WriteLn(S = ,S)
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.