Информатика (паскаль) / лаб.1 / 1

program pr1;

uses crt;

var z1,z2,a: real;

begin

clrscr;

writeln('a=');

readln(a);

z1:=cos(a)+sin(a)+cos(3*a)+sin(3*a);

writeln('z1=',z1:8:3);

z2:=2*sqrt(2)*cos(a)*sin((3.14/4)+(2*a));

writeln('z2=',z2:8:3);

readln;

end.