Модули в Pascal ABC

[shef58]

Нужно написать модуль из двух процедур и двух функций на Pascal ABC.

[Arigato]

Даю добро - пишите.

[Вадим Мошев]

Сообщение от Arigato

Даю добро - пишите.

Боян (или баян) уже

[Arigato]

Как и сама тема баян

[Serge_Bliznykov]

ну что вы такие звери! Неужели трудно написать модуль из "из двух процедур и двух функций на Pascal ABC" ?!

вот готовый код:

unit unit1;

interface
  procedure Procedure1;
  procedure Procedure2;
  function finction1 : integer;
  function finction2 : string;
  
implementation
  procedure Procedure1;
  begin
    WriteLn('call Procedure1')
  end;
  procedure Procedure2;
  begin
    WriteLn('call Procedure2')
  end;

  function finction1 : integer;
  begin
    result := 100;
  end;
  
  function finction2 : string;
  begin
    result := 'function 2'
  end;
  
begin
end.

использовать так:

uses unit1;

begin
  Procedure1;
  Procedure2;
  WriteLn(finction1);
  WriteLn(finction2);
end.