Program M;
Begin
real x, y;
write("Choose x:");
readln(x);
if (x>0)
then
y=sin(x)
else if (x<0)
y=cos(x)
else y=1
writeln("y=");readln(y);
end
A\/Ā=1, поэтому =1\/В/\С=1
Дано двухзначное и трехзначное число. Найти квадрат суммы десятков этих чисел.