Написать программы с помощью паскаля

Var A:byte; Begin WriteLn('Введите двузначное число'); ReadLn(A); if (A div 10) > (A mod 10) then Write(A div 10,'>',A mod 10) else if (A div 10) = (A mod 10) then Write((A div 10),'=',(A mod 10)) else Write(A div 10,'<',A mod 10) End. Var x,y,z,M:real; Begin Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); Write('z = ');ReadLn(z); M:=(x+y)/z; if (x+z)/y>M then M:=(x+z)/y; Write('Max = ',M); End. Var x:real; Begin Write('x = ');Read(x); x:=1/(x+1)+1/(x-1); Write('y = ',x); End.