Var
A:integer;
S:real;
Begin
{Постусловие}
S:=0;
Repeat
Read(A);
S:=S+A;
Until A = 0;
WriteLn('S = ',S);
{Предусловие}
S:=0;
Read(A);
While A<>0 do
Begin
S:=S+A;
Read(A);
End;
WriteLn('S = ',S);
End.
после writeln() должно стоять ( ;)
и в конце не нужна readln
Кивок головы, рукопожатие, словесно (привет, здрасте и т. д) , приобнять,поцеловать и т.д.
Систем может быть несколько чтобы в дальнейшем задать вопрос пользователю какую систему загрузить?
если системный диск указать то не получится изменить параметры загрузки системы
я бы так ответил