Даны два числа. Найти разность большего числа и меньшего.

Question

Даны два числа. Найти разность большего числа и меньшего.

Comments

а какие числа?

---

люббые

---

паскаль абц

---

228

---

харбас тусовки

---

Учителю по инфе раскажу

Answer 1

var

 A, B: Integer;

begin

   Write('Введите 2 целых числа: ');

   Readln(A, B);

   Writeln ('Разность большего и меньшего = ' + IntToStr (Abs (A - B)));

end;