var x,y:real;
begin
read(x);
if x>3.5 then y:=sin(x)*(ln(x)/ln(10));
if x<3.5 then y:=cos(2*x);
write(y);
end.
Ответ 3 т.к . в 1ом решение нет объявлении переменной, а во втором число а не выводится
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.