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.

Int main() {int n; cin > > n; switch (n)     {case 1 : cout < < "январь" ; break; case 2 :   cout < < "февраль" ; break; case 3 :   cout < < "март" ; break; case 4 :   cout < < "апрель" ; break; case 5 :   cout < < "май" ; break; case 6 :   cout < < "июнь" ; break; case 7 :   cout < < "июль" ; break; case 8 :   cout < < "август" ; break; case 9 :   cout < < "сентябрь" ; break; case 10 :   cout < < "октябрь" ; break; case 11 :   cout < < "ноябрь" ; break; case 12 :   cout < < "декабрь" ; break; default: cout < < "такого месяца нет"; } return 0; }

Var i: byte;       prod: real;       begin   prod: =1;   for i: =3 to 100 do       if odd(i) then           prod: =prod*i;   writeln('1). произведение первых 100 нечетных натуральных чисел');   writeln(prod);   writeln();     prod: =0;   for i: =2 to 20 do       if not odd(i) then           prod: =prod + i * i;   writeln('2). сумма квадратов всех четных чисел от 2 до 20');   writeln(prod);   writeln(); end.