Напишите программы с использованием библиотека (внутри)

Вот 5 задач:

Вот библиотека (нельзя загрузить)

{-------------NOD----------------} //наибольший общий делитель
function nod(x,y:integer):integer;
var k:integer;
begin
while x*y<>0
do begin
if x>y then x:=x mod y else y:=y mod x;
end;
nod:=x+y;
end;

{-------------NOK----------------} //наименьшее общее кратное
function nok(x,y:integer):integer;
var c:integer;
begin
c:=x*y;
repeat
if x>y then x:=x-y else y:=y-x;
until x=y;
c:=с div y;
end;
{----------prostoe---------------} //нахождение простого числа
function checksimple(x:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to x do begin
if x mod i = 0 then k:=k+1;
end;
if k = 2 then writeln(x);
end;

{-------------MIN----------------} //минимально значение
function min(x,y,z,c:integer):integer;
var min:integer;
begin
min:=x;
if y<min then min:=y;
if z<min then min:=z;
if c<min then min:=c;
end;

{-----------COUNTDIG------------} //счетчик цифр числа
function count(x:integer):integer;
var k:integer;
begin
k:=0;
while x<>0
do begin
x:=x div 10;
k:=k+1;
end;
end;

{------------SUMDIG-------------} //сумма циифр числа
function sumdig(x:integer):integer;
var sum:integer;
begin
sum:=0;
while x<>0
do begin
sum:=sum + (x mod 10);
x:=x div 10;
end;
end;

{------------STEPEN-------------} //возведение в степень
function stepen(x,y:integer):integer;
var k,s,i:integer;
begin
s:=y;
k:=0;
i:=1;
while (x<>s)
do begin
s:=s*y;
i:=i+1;
if s>x then
begin
k:=1;
break; //выход из цикла без выполнения условия выхода
end;
end;
if k=0 then write(y+' в степени '+ i+ ' = ' + x)
else write(x +' не является степенью ' + y);
end;

0

одна тема - одна задача. условие перепечатываем в тему руками.
читаем правила.

0