Составьте блок-схему действий ивана царевича: кто прямо пойдёт будет холоден и голоден, кто пойдёт направо будет зрав и жив а конь мёртв, кто пойдёт налево будет мёртв а конь жив. если что блок-схема это запись алгоритма с фигур

//так и не осознала как вводить функции с клавиатуры. спрошу у учителя. var b1,b2,b: boolean; function imp(a, b : boolean) : boolean; begin imp: =(not a) or b; end; begin; writeln('implication'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: 7,imp(b1,b2): 7); writeln('not (x) or y'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: b1) or b2): 7); for b1: =false to true do for b2: =false to true do if imp(b1,b2)< > ((not b1) or b2) then   begin;   writeln('не эквивалентны');   exit;   end; writeln('эквивалентны'); end.

Программа, которая использует два массива var  c, a: array[1..20] of integer;   i: integer; begin  write('первый массив ');   for i : = 1 to 20 do    begin    c[i] : = i * (-5);     write(c[i], ' ');   end;   writeln;   write('преобразованный массив ');   for i : = 1 to 20 do    begin    a[i] : = c[20 - i + 1];     write(a[i], ' ');   end;   end.или   программа не использующая два массива, а просто переворачивающая первыйvar  c: array[1..20] of integer;   i: integer; begin  write('первый массив ');   for i : = 1 to 20 do    begin    c[i] : = i * (-5);     write(c[i], ' ');   end;   writeln;   write('преобразованный массив ');   for i : = 20 downto 1  do    write(c[i], ' ');   end.обе программы работают!