Напишите код программы)) Срочно )❤ Пожалуйста❤

Question

Напишите код программы))
Срочно )❤
Пожалуйста❤

---

Answer 1

Var x,y,k:integer;

begin

Writeln('Привет,я-alconafft');

x:=5;

y:=-6;

if(x>y) then k:=x+y else k:=y-x;

write(k);

end.