Помогите по Ивт!!!Дам 15 баллов

Question

Помогите по Ивт!!!Дам 15 баллов

---

Answer 1

Это на Паскаль:

program uslovie;
uses crt;
var x,y,z: real;
begin
clrscr;
x:=5;
y:=-6;
if x>y then
z:=x+y
else
z:=y-x;
writeln(z);
readln;
end.