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

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<y) then    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<b) then begin    x:=a; a:=b; b:=x;  end;  if (b<c) then begin    x:=b; b:=c; c:=x;  end;  if (a<c) then begin    x:=a; a:=c; c:=x;  end;  if (a<b) then begin    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<y then    write('<')  else    write('>');  write(y ,' (a+b+c)');END.