Программа должна вычислять произведение двух чисел и спрашивать «завершать работу или нет», если нет, то продолжить запрашивать данные вычислять произведение и печать его — Pascal(Паскаль)

uses crt;
var a,b,p:real;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Введите 2 числа для умножения:');
readln(a,b);
p:=a*b;
writeln('Произведение=',p:0:2);
writeln('Продолжить y/Y нет- любая клавиша');
readln(w);
until not(w in ['y','Y']);
end.