Pascalda Sıfır Girilinceye Kadar Sayıların Toplamını Hesaplayan Program

uses crt;
var
   S,Toplam:Longint;
Begin
   clrscr;
     S:=1;
    While S<>0 Do
Begin
     Write('Sayi='); Readln(S);
     Toplam:=Toplam+S;
End;
     Writeln('Sayıların Toplamı=',Toplam);
     Readln;
End.