2. Дано целое число A. Если значение A > 0, то необходимо увеличить его на единицу, иначе умень- шить на 1. Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм для A=3, A=0,
А=-12.
3. Даны два действительных числа X и Y. Если X>Ү, то вычислить произведение этих чисел, иначе их
сумму. Разработать схему алгоритма для решения этой задачи.
ответ:var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
end.
Объяснение: