Написать процедуру, которая печатает 60 раз указанный символ, каждый с новой строки

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var c:=ReadlnChar;
  Write(60*(c+NewLine))
end.