Надо вместо букв поставить цифры
Если точно по блок-схеме, то так:
Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=A+1;
if A<0 then A:=Abs(A);
WriteLn(A);
End.
Но можно и проще:
Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=Abs(A+1);
Write(A)
End.
<span>(2х2=6 или 3х3=10) и (2х2=4 или 3х3=9) </span>⇒
(Ложь или Ложь) и (Истина или Истина) ⇒ Ложь и Истина ⇒ Ложь
Сместиться в точку (2;1)
опустить перо
сместиться в точку (4;6)
сместиться в точку (6;1)
сместиться в точку (2;1)