Pascal ABC разветвлённо вычислительный процесс

[чебурекер]

пожалуйста помогите решить задали по инфе и незнаю откуда начать

[ROMA2PVT]

 if k=1 then y:=sin(abs(k-x));
 if k=2 then y:=cos(abs(k-x));
 if k=3 then y:=sqrt(abs(k+sqr(x)+1));
 if k>3 then y:=k*sqr(x);

[чебурекер]

а перед этим нужно какие-нибудь операторы писать а то я совсем в инфе не шарю
напишите если не трудно пожалуйста

[чебурекер]

условие: Повведённым с клавиатуры значениям x,k вычислить Y

[ROMA2PVT]

Uses
 CRT;
Var
 y,x:real;
 k:integer;
begin
ClrScr;
write('K:=');
readln(k);
write('X:=');
readln(x);
if (k=0) or (k<0) then writeln('Ê íå óäîâëåòâîðÿåò óñëîâèþ')
else
begin
 if k=1 then y:=sin(abs(k-x));
 if k=2 then y:=cos(abs(k-x));
 if k=3 then y:=sqrt(abs(k+sqr(x)+1));
 if k>3 then y:=k*sqr(x);
writeln('y:=',y:1:4);
end;
readkey
end.

[чебурекер]

извенипожалуйста я наверно тя задолбал совсем
не мог бы ты написать английскими буквами то что в нутри апострофов
огромное спасибо за задачу

[ROMA2PVT]

к не удовлетворяет условию

[чебурекер]

условие тоже самое

[ROMA2PVT]

ну а по аналогии чё ни как?

[чебурекер]

ок спасибо щас попробую