Program mr_zerkalka;
uses crt;
var y,c,t,g,z,x:integer;
begin
wrtiteln('x=');
readln(x);
if x=>0 then
z:=4*x;
if x<0 then
z:=sqr(x);
wrtiteln('c=,t=,g=');
readln(c,t,g);
if z=>0 then
y:=c*t*g*z;
if z<0 then
y:=t*g*z;
writeln('z=',z);
writeln('y=',y);
end.

Var x,y,z:real;
begin
readln(x);
if x>=0 then z:=4*x else z:=x*x*x;
writeln('z = ',z:6:4);
if z>=0 then y:=cos(x)/sin(x) else y:=sin(x)/cos(x);
writeln('y = ',y:6:4);
end.

Пример:
1.5
z = 6.0000
y = 0.0709