Пример кода на Pascal для нахождения произведения чисел больше 7 с использованием цикла while:

program MultiplyNumbers;
var
num, product: integer;
begin
product := 1;
writeln('Enter a number (0 to exit): ');
readln(num);
while num <> 0 do
begin
if num > 7 then
product := product * num;
writeln('Enter a number (0 to exit): ');
readln(num);
end;
writeln('The product of numbers greater than 7 is: ', product);
end.

Эта программа запрашивает у пользователя числа и находит их произведение, ограничиваясь только числами больше 7. При вводе 0 программа завершает выполнение и выводит итоговое произведение.