01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TPU / MY_UNIT

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.