с написанием программы (в pascal abc) по нахождению периметра четырёхугольника с оператором "if". Нужно сделать так, чтобы если ты вводишь отрицательное число или ноль выдавало ошибку. После этого программа должна попросить написать положительное число. 30 б накину

var a,b,c,d, i:real;

begin

   while true do

       begin

           readln(a,b,c,d);

           if (a <= 0) or (b <= 0) or (c <= 0) or (d <= 0) then

           begin

, введите положительное число');

               continue;

           end

           else

               break;

       end;

   writeln(a+b+c+d);

end.

Объяснение: