Напишите пожалуйста программу для Pascal ABC по заданию: Даны…

Var a,b,z: real; Beginreadln (a,b); If (a>b) and (b>0) then z: =a/b elseIf (a>b) and (b<0) then z: =a/b elseIf (a>b) and (b=0) then z: =a+b elseIf (b>a) and (a>0) then z: =b/a elseIf (b>a) and (a<0) then z: =b/a elseIf (b>a) and (a=0) then z: =a+b; Writeln (z); end.