Написать программу, которая вычисляет произведение чисел, введенных с клавиатуры, пока не введено «0». Использовать цикл с постусловием.
Pascal

Спасибо

Пожалуйста

var a,b:integer;beginreadln(a,b);if (a=0) or (b=0) then writeln('Операция не выполнена, т.к введен 0')else writeln(a*b);end.