Используя цикл "while" вывести на экран числа 30,25,20 . найти сумму чисел ""

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.