Question

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

Answer 1

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