Program ex0428
implicit none
i=123+321
write(*,"('123+321=',I4)")j
stop
end

Program ex0418
implicit none
real::a,b,c
read(*,*)a,b,c
write(*,*)a+b+c
stop
end

Program ex0418
implicit none
real::a,b,c
read(*,*)a,b,c
write(*,*)a+b+c
stop
end

Program ex0417
implicit none
integer(kind=2)::a
read(*,*)a
write(*,*)a
stop
end

Program ex0501
implicit none
logical(kind=2)::a,b
a=.true.
b=.false.
write(*,*)a,b
stop
end

Program ex0501
implicit none
real(kind=4)::speed
write(*,*)"speed:"
read(*,*) speed
if (speed>100.0) then
   write(*,*) "Slow down."
endif
stop
end

Program ex0430
integer::a=1
real::b=2.0
complex::c=(1.0,2.0)
character(len=20)::str="Fortran 90"
write(*,*) a,b,c,str
stop
end

Program ex0401
integer a
a=3
write(*,*) "a=",a
stop
end

#include<iostream>
//#include<iomanip>
//#include<cmath>
using namespace std;
template <class T>
T max(T a[],int n)
{
    T max=a[0];
    for (int i=0;i<n;i++)
        if (a[i]>max)
            max=a[i];
    return max;
......................

#include<iostream>
//#include<iomanip>
//#include<cmath>
using namespace std;
void swap(int &,int &);
void main()
{
    int a=2,b=10;
    swap(a,b);
    cout<<"a="<<a<<",b="<<b<<endl;
}
void swap(int &a,int &b)
......................