var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
Вся программа ниже,...........
Program psck;
vara,b: real;
begin read(a,b); b:=10*10*10*10*a-3*b/5; write('Полученный результат - ',b);end.
Var a: real;
begin
readln(a);
a := Ceil(1/(a-1) + 1e-15);
writeln(a, ' -> ',1+1/a);
end.