Вычислите произведение чисел от 6 до 11, используя циклы FOR и WHILE.Срочно буду очень благодарен.

На через while (На Pascal)

//FORuses crt;var k, i: Integer;begink : = 1;for i : = 6 to 11 dok = k × i;writeln(k);end.//WHILEuses crt;var k, i: Integer;begink : = 1;i := 6;while i <> 11 + 1 dobegink = k × i;inc(i)end;writeln(k);end.