fork download 
  1. program ideone;
  2. var a, mx1, mx2, min1, min2:integer;
  3. begin
  4.   read(a);
  5.   mx1 := -32767;
  6.   mx2 := -32767;
  7.   min1 := 32767;
  8.   min2 := 32767;
  9.   while a <> 0 do
  10.   begin
  11.     if mx1 < a then
  12.       begin
  13.         mx2 := mx1;
  14.         mx1 := a;
  15.       end
  16.     else if mx2 < a then
  17.       mx2 := a;
  18.  
  19.     if min1 > a then
  20.       begin 
  21.         min2 := min1;
  22.         min1 := a;
  23.       end
  24.     else if min2 > a then
  25.         min2 := a;
  26.     read(a);
  27.   end;
  28.   write(mx1 + mx2);
  29.   write(min1 + min2);
  30. end.
  31.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
3
10
25
12
0
stdout 
3713
https://ideone.com/bwW0sP
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!