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

Question

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

Comments

Это Паскаль

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.