ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!! Программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.
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.