Сколько строк напечатает программа:
var k, l: integer;
begin for k:=8 downto 1 do
writeln\('Привет'\);
end.