Program z2;

Procedure horline (Len: integer; s: char);
Var i: integer;
Begin
For i:=1 to Len do write(s);
Writeln;
end;

begin
Horline (10,'-');
Horline (20,'*');
Horline (30,'#');
End.

jkh40949    3   29.04.2020 23:11    2