1.даны два числа a и b. если a> b найти их разность и частное. если a

Вот 1 и 3 задание в общем лови ) на паскале

Второе задание:
var a,b,y: integer;
begin
read(a,b,y);
if ((y<a) and (y>b)) or ((y>a) and (y<b)) then writeln('принадлежит') else writeln('не принадлежит');
end.