Помогите решить,не шарю в информатике. нужно сделать таблицу и программу

Question

Помогите решить,не шарю в информатике.
нужно сделать таблицу и программу

---

Answer 1

PROGRAM A18;
var
    a,b,c:integer;
    x,y,z:integer;

BEGIN
  write('Введите X='); readln(x);
  write('Введите Y='); readln(y);
 
  if (x=y) then begin
    x := 0;
    y := 0;
  end else if (x    x:=0
  else
    y:=0;
    
  writeln('Число X:',x,' Число Y:',y);
   
  writeln('');
  write('Введите A='); readln(a);
  write('Введите B='); readln(b);
  write('Введите C='); readln(c);  
 
  if (a    x:=a; a:=b; b:=x;
  end;
  if (b    x:=b; b:=c; c:=x;
  end;
  if (a    x:=a; a:=c; c:=x;
  end;
  if (a    x:=a; a:=b; b:=x;
  end;
 
  writeln('A=', a, ' B=', b, ' C=', c);
   
  writeln('');
  x := a*b*c;
  y := a+b+c;
  write('(a*b*c) ',x);
  if x    write('<')<br>  else
    write('>');

  write(y ,' (a+b+c)');
END.