60б. Ребят, пожалуйста помогите. ПАСКАЛЬ АВС. Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'
Program gt; var n:longint; procedure Liniya(N: longint); var i:longint; begin for i:=1 to n do write('-'); end; begin readln(n); Liniya(n); end.