Прямоугольный параллелепипед с ребрами 4, 8 и 12.Предикат: Vol(a, b, c, v):=Mult(a, b, z), Mult(z, c, vЗа Какой ответ?​

Var
  a, b: array[1..110000] of integer;
  i, n, j, cnt: integer;
begin

  Readln(n);
  for i := 1 to n do
    Read(a[i]);
  Write(a[1], ' ');
  for i := 2 to n - 1 do
  Begin
  if a[i] > 0 then Write(a[i], ' ');
 i if (a[i] < 0) and (a[i - 1] > 0) and (cnt = 0) then      for j := i to n do      begin      if (j = n) and (a[j] < 0) then
 begin
   cnt:= 0;
   break;
end;
        if a[j] > 0 then 
          break
        else 
          cnt:= cnt + 1;
       end;
  if cnt = 0 then Write(a[i], ' ');    if cnt > 0 then cnt := cnt - 1;  
  end;
  Write(a[n]);  end.

Эмм.. Pascal:

var
a, b, c:String;
begin
a := 'Я очень хорошая вычислительная машина';
b := 'Я хороший робот';
writeln('Введите текст ', a, ' и получите текст', b);
readln(c);
if a = c then
begin
writeln(b);
end;
end.

ответ 2:
var
b: array [1..4] of String[9] = ('ДОНОР', 'ЖЕЗЛ', 'КОЛЕНО', 'КРОКОДИЛ');
a, c:String;
i:Integer;
begin
a := 'ЖЕЛЕЗНОДОРОЖНИК';
writeln('Введите текст ', a, ' и получите слова');
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
readln(c);
if a = c then
begin
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
end;
end.