Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. Помогите(

Pascal:
var a:array [1..5] of real;
     i,max,min:integer;
begin
  readln (a[1]);
  max:=a[1];
  min:=a[1];
  for i:=2 to 5 do
   if a[i]>max then max:=a[i] else
    if a[i]  writeln (Max: ,max);
  writeln (Min: ,min);
end.

C++:
#include
using namespace std;

int main()
{
  int a[5],max,min;
  cin >>a[0];
  max = a[0];
  min = a[0];
  for (int i = 1; i   if (a[i]>max)
     max = a[i];
  else if (a[i]          min = a[i];
  cout             return 0;
}