Даны два числа. Если оба числа положительные, то найти их сумму, иначе вывести сообщение «условие не выполняется».

Vara,b,c: integer;Beginwriteln('введите первое число');read(a);writeln('введите второе чмсло');read(b);if a and b>0 thenc:= a+b;writeln(' сумма чисел ', c);else writeln(' условие не выполняется');end.