[Nevis]

Всем доброго времени суток.
Имеется программа:

Код:

Program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var p1,p2,q1,q2,p,q,n,x,y:integer;
 s:string;
begin
     //Ввод данных с помощью ДСЧ
     randomize;
     p1:=random(100);
     q1:=random(100);
     p2:=random(100);
     q2:=random(100);
     SUM(p1,q1,p2,q2,x,y);
     writeln(p1:3,'   ',p2:3,'   ',p:3);
     writeln('--- + --- = -----');
     writeln(q1:3,'   ',q2:3,'   ',q:3);
     writeln;
     RAZN(p1,q1,p2,q2,p,q);
     writeln(p1:3,'   ',p2:3,'   ',p:3);
     writeln('--- - --- = -----');
     writeln(q1:3,'   ',q2:3,'   ',q:3);
     writeln;
     UMN(p1,q1,p2,q2,p,q);
     writeln(p1:3,'   ',p2:3,'   ',p:3);
     writeln('--- * --- = -----');
     writeln(q1:3,'   ',q2:3,'   ',q:3);
     writeln;
     DEL(p1,q1,p2,q2,p,q);
     writeln(p1:3,'   ',p2:3,'   ',p:3);
     writeln('--- / --- = -----');
     writeln(q1:3,'   ',q2:3,'   ',q:3);
     writeln;
     writeln('Vv. n');
     readln(n);
     VOZV(p1,q1,n,p,q);
     writeln(p1:3,'        ', p:3);
     writeln(' --- ^ n = ---- ');
     writeln(n);
     writeln(q1:3,'        ',q:3);
     writeln;
     SRV(p1,q1,q2,p2,s,p,q);
     writeln(p1:3,'   ',p2:3);
     writeln(' -- ',s,'   -- ');
     writeln(q1:3,'   ',q2:3);
     writeln;
     readln;
end.

И юнит

Код:

unit Unit1;

interface
procedure SUM(p1,q1,q2,p2:integer; var p,q:integer);
procedure RAZN(p1,q1,q2,p2:integer; var p,q:integer);
procedure UMN(p1,q1,q2,p2:integer; var p,q:integer);
procedure DEL(p1,q1,q2,p2:integer; var p,q:integer);
procedure VOZV(p1,q1,n:integer; var p,q:integer);
procedure SRV(p1,q1,q2,p2:integer;s:string; var p,q:integer);
implementation
uses math  ;
   procedure SUM(p1,q1,q2,p2:integer; var p,q:integer);
   begin
         p:=p1*q2+p2*q1;
         q:=q1*q2;
   end;
   procedure RAZN(p1,q1,q2,p2:integer; var p,q:integer);
    begin
         p:=p1*q2-p2*q1;
         q:=q1*q2;
   end;
      procedure UMN(p1,q1,q2,p2:integer; var p,q:integer);
       begin
         p:=p1*p2;
         q:=q1*q2;
   end;
   procedure DEL(p1,q1,q2,p2:integer; var p,q:integer);
      begin
         p:=p1*q2;
         q:=q1*p2;
   end;
   procedure VOZV(p1,q1,n:integer; var p,q:integer);
   begin
   p:=trunc(power(p1,n));
   q:=trunc(power(q1,n));
   end;
   procedure SRV(p1,q1,q2,p2:integer;s:string; var p,q:integer);
   begin
     p:=p1*q2;
     q:=p2*q1;
     if p>q then s:='>' else
     if p<q then s:='<' else s:='=';
   end;
end.

Вопрос, в самой консоле не отображается знаки <,>,=, Кто может подсказать в чем ошибка?

[M.A.D.M.A.N.]

Ну так она назначается аргументу ф-ии, а он в стеке, по сути бесполезный код у тебя, там либо перед S писать var илбо out.

[Nevis]

Cпасибо, помогло)
Не могли бы вы подсказать, как записать процедуру сокращения дроби?