program srs6_17a;
var b,p,с,a,x,y,z,q:real;
begin
c=1.89;
a=4;
y:=0.1;
while y<=2.5
      do
        begin
             if (y=0.6) or (y=1.5) or (y=1.85) or (y=2.5)
                then
                    begin
                     x:=(cos(y-c)*(cos(y-c))+ln(c))/(sin(y-c));
                     if x<y
                        then b:=(ln(abs(x+1.45*y)))/(4.35*(sin(x*y)*sin(x*y)))
                        else b:=1.35*((sin(x)/cos(x))*(sin(x)/cos(x)))+sqrt(abs(x-y));
                     p:=0.3*sin(a)*sin(a)+cos(b)*cos(b);
                     z:=p+(0.5*b*b*a);
                     writeln('if y=',y:1:1,', z=',z:1:3);
                     y:=y+0.05;
                     end
                else y:=y+0.05
        end
readln;
end.

program srs6_17a;
var a, b, c, p, x, y, z : real;
begin
c:=1.89;
a:=4.0;
y:=0.1;
while (y <= 2.5)
      do
        begin
             if ((y=0.6) or (y=1.5) or (y=1.85) or (y=2.5))
                then
                    begin
                     x:=(cos(y-c)*(cos(y-c))+ln(c))/(sin(y-c));
                     if x<y
                        then b:=(ln(abs(x+1.45*y)))/(4.35*(sin(x*y)*sin(x*y)))
                        else b:=1.35*((sin(x)/cos(x))*(sin(x)/cos(x)))+sqrt(abs(x-y));
                     p:=0.3*sin(a)*sin(a)+cos(b)*cos(b);
                     z:=p+(0.5*b*b*a);
                     writeln('if y=',y:1:1,', z=',z:1:3);
                     y:=y+0.05;
                     end
                else y:=y+0.05;
        end;
readln();
end.

if ((y=0.6) or (y=1.5) or (y=1.85) or (y=2.5))
then
...
else y:=y+0.05

x:=(cos(y-c)*(cos(y-c))+ln(c))/(sin(y-c));
writeln('x = ', x);

                     if (x < y)
                        then b:=((ln(abs(x+1.45*y)))/(4.35*(sin(x*y)*sin(x*y))))
                        else b:=(1.35*((sin(x)/cos(x))*(sin(x)/cos(x)))+sqrt(abs(x-y)));