Question

Решите пожалуйста. По фотографии

Answer 1

Вот так как то, если неправильно, напишите в комментах

program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
  begin
  if b>c then writeln (c,b,a)
    else
      if a>c then writeln (b,c,a)
      else writeln (b,a,c);
  end
else
  begin
  if a>c then writeln(c,a,b)
  else
    if b>c then writeln (a,c,b)
    else write(a,b,c)
  end;
end.