Как сделать в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа x и y. если разность x и y больше 0, то вычисляет и выводит на экран сумму всех целых чисел от y до x, иначе вычесляет и выводит на экран разность всех целых чисел от y до x
if y>0 and x>o then
begin
s=s+ai