Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TPU / MY_UNIT
.PAS unit my_unit;
interface
procedure zast;
function kvadro (i:integer) : integer;
implementation
uses crt;
procedure zast;
begin
clrscr;
textcolor (red);
writeln ('--------------- Џђ€‚…’ ----------------');
end;
function kvadro (i:integer) : integer;
begin
kvadro:=i*i*4;
end;
begin
end.
interface
procedure zast;
function kvadro (i:integer) : integer;
implementation
uses crt;
procedure zast;
begin
clrscr;
textcolor (red);
writeln ('--------------- Џђ€‚…’ ----------------');
end;
function kvadro (i:integer) : integer;
begin
kvadro:=i*i*4;
end;
begin
end.