1 схема для 1 задания (где A)
Код программы для 1 задания:
var X, A:integer;
begin
writeln('Введите X');
readln(X);
if (X < 0) then
A := 1
else
A := X + 1;
writeln('A = ', A);
end.
2 схема для 2 задания (где Q)
Код программы, для 2 задания:
var Q:real;
begin
writeln('Введите число');
readln(Q);
if (Q < 0) then
Q := Q*Q
else
Q := Q*Q*Q;
writeln('Q = ', Q);
end.