Помогите найти ошибку.

[Yanova_Masha]

Почему то делаю программу в Pascal ABC и все работает, ее же открываю в Geany и считает неправильно
Задача: Составить программу для вычисления значения функции f(x)
f=k*x,если k<x
f=k+x, если k>=x
f=x^3,если sin(x)<0,
где k=|x|,если sin x>=0


program ex1;
var k,x,f : integer;
BEGIN
writeln('vvedite chislo');
readln(x);
if sin (x)>=0 then begin
k:=abs(x);
if k<x then f:=k*x else
if k>=x then f:=k+x;
end
else f:=sqr(x)*x;
writeln('f(x)=',f);
end.

[Toucan]

Тема перемещена в Карантин.

Чтобы оттуда выбраться

1. Запишите формулы в соответствии с требованиями Правил форума, т.е. в $\TeX$.
Краткие инструкции можно найти здесь: topic8355.html и topic183.html.
Кроме этого, в теме Видео-пособия для начинающих форумчан можно посмотреть видео-ролик "Как записывать формулы".

2. Для оформления исходного текста программы используйте тег syntax: Как подсвечивать синтаксис?

3. Подробно объясните, что значит "работает неправильно".

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.