Исправить ошибку в написании программы. В Паскале пишет ожидался идентификатор ,но " " обнаружено
var
i, s, n: integer;
begin
readln(n);
s := 0;
i := 0;
while i < n do
begin
i := i + 1;
s := s + i;
end;
writeln('Цикл с предусловием: ', s);
s := 0;
i := 1;
repeat
s := s + i;
i := i + 1;
until i > n;
writeln('Цикл с постусловием: ', s);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Цикл с переменной: ', s);
end.

DOLTONrus    3   22.04.2020 11:56    5