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

Var
A:byte;
Begin
WriteLn(Введите двузначное число);
ReadLn(A);
if (A div 10) gt; (A mod 10) then Write(A div 10,gt;,A mod 10)
else if (A div 10) = (A mod 10) then Write((A div 10),=,(A mod 10))
else Write(A div 10,lt;,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)/ygt;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.