с информатикой. Неправильные ответы не писать!

program ttt;
var i,j,a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);

if (a>b) then
if (a>c) then
begin
write(a);
if (b>c) then begin write(b);write(c) end; else begin write(c); write(b);end
end; else

if (b>c) then begin write (b); if(a>c)then begin write(a); write(c);end; else begin write(c); write(a);end; end;
else begin write(c); if(a>b) then begin write(a);write(b)end; else begin write(b); write(a); end;end;

end;

неоптимальный, но понятный алгоритм.
а в другом случае можноо оптимизировать.. как- подумай -;)

На каком языке нужна программа? 
Пример на Paskal: 
program zadacha; 
var massiv: array [1..15] of integer; i:byte; massiv2:array [1..15] of real; 
begin 
randomize; 
write('Isxodnij massiv: '); 
for i:=1 to 15 do 
begin 
massiv:=random(41)-20; 
write(massiv,' '); 
end; 
writeln; 
writeln('Massiv posle preobrazovanij: '); 

for i:=1 to 15 do 
begin 
if massiv=0 then massiv2:=massiv 
else 
if massiv mod 5 = 0 then massiv2:=massiv*2 
else begin 
massiv2:=massiv; 
massiv2:=massiv2/2; 
end; 
write(massiv2:0:1,' '); 
end; 
readln; 
end.