Плиз помогите всё в PascalAbc.net

Uses crt;
var input,a,b,c:integer;
begin       
readln(input);       
if(input gt;= 100) and (input lt;= 999) then        
begin               
writeln('Число трехзначное.');               
if (input mod 2 lt;gt; 0) then                       
writeln('Число нечетное.');       
end;               
readln(a,b,c);       
if(a gt; b ) and (a gt; c) then           
a := b + c;       
if(b gt; a  ) and (b gt; c) then           
b := c + a;            
if(a lt; c ) and (b lt; c) then           
c := a + b;                  
writeln('a = ', a);       
writeln('b = ', b);       
writeln('c = ', c);
end.