Записать по данной схеме программу.

Question

Записать по данной схеме программу.

---

Answer 1

Если точно по блок-схеме, то так:

Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=A+1;
if A<0 then A:=Abs(A);<br>WriteLn(A);
End.


Но можно и проще:

Var
   A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=Abs(A+1);
Write(A)
End.

Comments

Благодарю)