Question

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

Answer 1

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