Ребят, помогите с информатикой! procedure swap(var x, y: integer); var m: integer; a, b,...

Question

Ребят, помогите с информатикой! procedure swap(var x, y: integer); var m: integer; a, b, c: integer; begin m := x; x := y; y := m; end; begin readln (a,b,c); write('Enter a,b,c:'); if a > b then swap(a, b); if b > c then swap(b, c); writeln('a=', a, 'b=', b, 'c=', c); readln; end.

Comments

слух у тя вк есть?

---

нет

---

а дискорд

---

не, я этим всем не пользуюсь, а зачем тебе?

---

Было бы прощё потом за помошью обращяться

---

обращаться*

---

пиши тут, если не я так кто другой поможет

---

оке

---

спс бро

---

оч выручил

Answer 1

ошибки в программе исправил. Логику проверить не могу так как не знаю что именно должна делать программа :)

var a, b, c : integer;

procedure swap(var x, y: integer);

var

   m: integer;

   a, b, c: integer;

begin

   m := x;

   x := y;

   y := m;

end;

begin

   write('Enter a,b,c: ');

   readln (a,b,c);

   if a > b then swap(a, b);

   if b > c then swap(b, c);

   writeln('a=', a, ' b=', b, ' c=', c);

   readln;

end.