Procedure PRINTBARS (B : INTEGER); Var i : INTEGER;
Begin
For i := 1 to B do
write('-')
End;
що отримємо в результаті використання процедури​

fasefasefaceface    3   31.03.2021 15:44    0