Как на это ответить. Даны два числа, найти и вывести на экран все значения функции y=x^2 подставляя вместо x все целые числа начиная с меньшего из заданных и заканчивая большим. Через 3 способа и 3 цикла, используя else/if
для программы паскаль

Первый способ:

program function_values;

var
  x1, x2, x, y: integer;

begin
  writeln('Введите два числа:');
  readln(x1, x2);
  if x1 > x2 then
  begin
    x := x2;
    x2 := x1;
  end
  else
    x := x1;
  while x  x2 then
  begin
    x := x2;
    x2 := x1;
  end
  else
    x := x1;
  repeat
    y := x * x;
    writeln('y(', x, ') = ', y);
    x := x + 1;
  until x > x2;
end.

Третий способ:

program function_values;

var
  x1, x2, x, y: integer;

begin
  writeln('Введите два числа:');
  readln(x1, x2);
  if x1 > x2 then
  begin
    x := x2;
    x2 := x1;
  end
  else
    x := x1;
  for x := x to x2 do
  begin
    y := x * x;
    writeln('y(', x, ') = ', y);
  end;
end.