С клавиатуры вводятся целые числа. Количество чисел неизвестно, признак окончания ввода 0. Напишите программу, которая вычисляет произведение чисел, которые оканчиваются на 7 и меньше 70.

Var   A:integer;   P:real;BeginP:=1;RepeatRead(A);if (A<70)and(A mod 10 = 7) then P:=P*A;Until A = 0;WriteLn('P = ',P);End.