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.
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.