Program Z_4;
var
 N:Integer;
 begin
 write('Введите N:');
 readln(N);
 if N<0 then
 writeln('Неположительное')
 else
 writeln('Положительное или ноль');
 if (N mod 5 )=0 then
 writeln('Кратно 5')
 else
 writeln('Не кратно 5');
 if N>2 then
 writeln('Больше 2х')
 else
 writeln('Не больше 2х');
 repeat
 if (N mod 3)<>0 then
 begin
 writeln('Не степень 3');
 break;
 end;
 N:=N div 3;
 until
 N=1;
 if N=1 then
 writeln('Степень 3');
 readln;
 end.

var 
 a, b, c : Real; 
 alpha, betta, gamma : Real; 
 P, S : Real; 
function GrdToRad(angle : Real) : Real; 
begin 
 GrdToRad := angle * Pi / 180; 
end; 
function RadToGrd(angle : Real) : Real; 
begin 
 RadToGrd := angle * 180 / Pi; 
end; 
function ArcSin(angle : Real) : Real; 
begin 
 ArcSin := ArcTan(angle / Sqrt(1 - angle*angle)); 
end;
function FindAngle(a, alpha, b : Real) : Real;
begin 
 FindAngle := ArcSin(b * Sin(alpha) / a); 
end; 
function FindStorona(a, alpha, betta : Real) : Real;
begin 
 FindStorona := a * Sin(betta) / Sin(alpha); 
end;
begin 
 Write('введите сторону AC = '); ReadLn(b); 
 Write('введите сторону BC = '); ReadLn(a); 
 Write('введите угол в градусах BAC = '); ReadLn(alpha); 
 alpha := GrdToRad(alpha); 
 betta := FindAngle(a, alpha, b); 
 gamma := Pi - alpha - betta; 
 c := FindStorona(a, alpha, gamma); 
 P := a + b + c; 
 S := a*b*Sin(gamma)/2; 
 WriteLn('Строны ', a:0:3, ' ', b:0:3, ' ', c:0:3); 
 WriteLn('Углы ', RadToGrd(alpha):0:3, ' ', RadToGrd(betta):0:3, ' ', RadToGrd(gamma):0:3); 
 WriteLn('Периметр ', P:0:3); 
 WriteLn('Площадь ', S:0:3); 
readln;
end.

Program Z_2;
var m,n,i,c,y: integer; 
begin 
write('m = '); 
readln(m); 
write('n = '); 
readln(n); 
write('Общие делители : '); 
for i := 2 to abs(m - n) div 2 do 
if (m mod i = 0) and (n mod i = 0) then 
begin 
write(i, ' '); 
c := (-1) * i; 
write(c, ' '); 
y:=y+1; 
end; 
if y = 0 then 
writeln('Общих делителей нет'); 
writeln; 
writeln('Всего общих делителей, кроме 1:',2*y-2); 
readln; 
end.