дполните текст программы

begin
s:= ‘береза’;
n:=length(s);
for i:=1 to n-1 do
begin
a:=copy[ s, i, 2];
writeln (a);
end;
end.
​

565п    1   06.03.2020 22:30    1