Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a,b,c,max,min,sum : integer;
- f1,f2 : text;
- begin
- assign(f1,'input.txt');
- assign(f2,'output.txt');
- reset(f1);
- read(f1,a,b,c);
- min:=0;
- max:=0;
- sum:=a+b+c;
- if (sum mod 2) = 0 then
- if (a<b) and (a<c) then
- begin
- min:=a;
- rewrite (f2);
- writeln(f2,min);
- close (f2);
- close(f1);
- end
- else
- if (b<a) and (b<c) then
- begin
- min:=b;
- rewrite (f2);
- writeln(f2,min);
- close (f2);
- close(f1);
- end
- else
- begin
- min:=c;
- rewrite (f2);
- writeln(f2,min);
- close (f2);
- close (f1);
- end
- else
- if (a>b) and (a>c) then
- begin
- max:=a;
- rewrite (f2);
- writeln(f2,max);
- close (f2);
- close (f1);
- end
- else
- if (b>a) and (b>c) then
- begin
- max:=b;
- rewrite (f2);
- writeln(f2,max);
- close (f2);
- close (f1);
- end
- else
- max:=c;
- rewrite (f2);
- writeln(f2,max);
- close (f2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement