помогите пожалуйста решить номер 2 и 3.Ничего сама не понимаю...дам 40 боллов！ето срочно....

vary,a,b,c,d,x,l : integer;beginwriteln('Нахождение наибольшей из четырех величин');write('Введите a,b,c>,d>');readln(a,b,c,d);if (a>b) then x:=a else x:=b;if (c>d) then l:=c else l:=d;if (x>l) then y:=x else y:=l;write('y=',y);end.

И третья vara,b : integer;begin read(a);b :=a mod 10;a:=a div 10;if (a=b) then write('Есть') else write ('Нет');end.