с написанием программы (в 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.
Объяснение: