определите значение переменной s после выполнения фрагмента программы
s := 0;
x := 2019;
while x > 0 do begin
x := x - 1;
s := s + 1;
end;

program pr11;

var

s,x:real;

begin

s := 0;

x := 2019;

while x > 0 do begin

x := x - 1;

s := s + 1;

end;

write('S= ',s);

End.

Протокол:

S=2019