Напишите программу, в которой осуществляется ввод целых чисел, пока не будет введен 100, используя циклы (Паскаль)

Ввод чисел продолжается, пока не введено число 100.VarA:integer;BeginWriteLn('Введите числа');Read(A);While A<>100 do   Begin   Read(A);   End;WriteLn('Ввод окончен');End.