C++ :

#include<iostream>
#include<stdio.h>
#define	MAX(a,b,c) ((a>b?a:b)>c?(a>b?a:b):c)
using namespace std;
double max(double a,double b,double c)
{
	return (a>b?a:b)>c?(a>b?a:b):c;
}
int main()
{
	double a,b,c;
	cin>>a>>b>>c;
	printf("%.3lf\n",max(a,b,c));
	printf("%.3lf\n",MAX(a,b,c));
	return 0;
}

Pascal :

var x:real;
    y,z,i,j:integer;
    a:array [1..3] of real;
begin
  readln(a[1],a[2],a[3]);
  for i:=1 to 3 do
   for j:=1 to 3 do
   if a[i]<a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end;
   writeln(a[3]:0:3);
   write(a[3]:0:3);
end.