Подпрограммы (процедуры и функции)

[newbieee]

Процедура

Составить процедуру Triangle90, которая по данным катетам прямоугольного треугольника находит его периметр и площадь. Используя эту процедуру, определить периметр и площадь двух прямоугольных треугольников, заданных своими катетами.

Функция

Даны числитель и знаменатель дроби. Найти несократимую дробь, равную данной, используя функцию NOD

P.S: Всякие "лайки", "спасибо за ответ", "лучший ответ" обеспечен, кто сделает ;-)

[zvygin1964]

Задание:

[newbieee]

Хороших людей много не бывает, спасибо аноним, тема закрыта.

program Program2;

function NOD(a, b: integer): integer;
var i, n: integer;
begin
  if a=b then NOD := a
  else 
  begin
    for i:=a downto 1 do
    if (a mod i = 0) and (b mod i = 0) then
    begin
      n := i;
      break;
    end;
    NOD := n;
  end;
end;

procedure Triangle90(a, b: real);
begin
  writeln('S = ', a*b/2);
  writeln('P = ', a + b + sqrt(sqr(a)+sqr(b)));
end;

var
  a, b: real;
  x, y, n: integer;
begin
  write('Введите длину первого катета (A): '); readln(a);
  write('Введите длину второго катета (B): '); readln(B);
  Triangle90(a, b);
  writeln;
  write('Введите значение числителя: '); readln(x);
  write('Введите значение знаменателя: '); readln(y);
  n := NOD(x, y);
  writeln('Несократимая дробь: ', x div n, '/', y div n);
end.