Написать в Паскале процедуру с изменяемым параметром. помогите хотя бы с одним.

Уровень A. Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания.
Пример:
Введите три натуральных числа:
10 15 5
5 10 15



Уровень B. Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры.
Пример:
Введите числитель и знаменатель дроби:
25 15
После сокращения: 5/3

Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland InternationalВведите три числа: 10 15 55 10 15

Все работает. Вообще-то я никогда не помещаю ответов, не протестировав программ.

спасибо большое, вы правда невероятно помогли.

Заканчивайте через мобилку общаться, если заходить с обычного компьютера, будет возможность обмениваться личными сообщениями через профиль.

Я отправил ЛС

Уровень Аtype  num=integer; { можно поменять на real, longint, даже char... }procedure Swap(var a,b:num);{ меняет местами значения a и b }var  t:num;begin  t:=a; a:=b; b:=tend;procedure Moving(var a,b,c:num);begin  if a>b then begin    Swap(a,b);    if b>c then begin      Swap(b,c);      if a>b then Swap(a,b)    end  end  else begin    if b>c then Swap(b,c);    if a>b then Swap(a,b)  endend;var  a,b,c:num;begin  Write('Введите три числа: '); Read(a,b,c);  Moving(a,b,c);  Writeln(a,' ',b,' ',c)end.Уровень Вfunction Gcd(a,b: longint): longint;{ Нахождение НОД }var  i: longint;begin  while b <> 0 do   begin    a := a mod b;    i := b; b := a; a := i  end;  gcd := aend;procedure ShortFraction(var m,n:longint);var  k:longint;begin  k:=Gcd(m,n);  m:=m div k; n:=n div kend;var  a,b:longint;begin  Write('Введите числитель и знаменатель дроби: '); Readln(a,b);  ShortFraction(a,b);  Writeln('Дробь после сокращения равна ',a,'/',b)end.Тестовое решение:Введите числитель и знаменатель дроби: 25 15Дробь после сокращения равна 5/3