Програма для обчислення синуса, косинуса, квадрата або кореня числа:
program sinys;
var s,c,sq: real;
a,q,n: integer;
begin
writeln ('vvedit chislo');
readln (a);
writeln ('vvedit nomer zavdannia');
writeln ('1 - znahodzennia koreny');
writeln ('2 - znahodzennia kvadraty');
writeln ('3 - znahodzennia sunysy');
writeln ('4 - znahodzennia cosunysy');
readln (n);
case n of
1:
begin
sq:= sqrt(a);
writeln (sq:4:2);
end;
2:
begin
q:=a*a;
writeln (q);
end;
3:
begin
s:=sin(a);
writeln (s:4:2);
end;
4:
begin
c:=cos(a);
writeln (c:4:2);
end;
end;
readln;
end.