1.
program z1;
uses crt;
var
a,b: real;
c,d: integer;
otvet: real;
begin
clrscr;
write('Vvedite a: ');
readln(a);
write('Vvedite b: ');
readln(b);
write('Vvedite c: ');
readln(c);
write('Vvedite d: ');
readln(d);
otvet := ((-2)*c+d*82)/(sin(a/4-1)/cos(a/4-1));
writeln('Otvet: ', otvet3);
readln;
end.
Добавлено через 23 минуты
program z2;
uses crt;
var
A,N, i: integer;
otvet: integer;
begin
clrscr;
write('Vvedite A: ');
readln(A);
write('Vvedite N: ');
readln(N);
otvet := A;
for i := 1 to N - 1 do
begin
if N <= 0 then
begin
writeln('Oshibka!');
break;
end;
otvet := otvet*A;
end;
write('Otvet: ', otvet);
readln;
end.