Решить в паскале с использованием цикла с ! программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.

var a, b: real;

 s: string;

begin

 repeat

   Writeln('Введите два числа');

   Readln(a, b);

   Writeln(a,' * ',b,' = ',a*b);

   Writeln('Завершить программу? - n or N for "No"');

   Readln(s);

 until (s <> 'n') and (s <> 'N')

end.