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

Var a, b, c:int64;
begin
read(a);
read(b);
read(c);
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>b) and (c>a) then write(c);
end.

1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
  n:integer;
  x,a:real;
begin
  a:=0;
  n:=0;
  repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
  until x<0;
  a:=a/n;
  Writeln('Ср.арифм: ',a:0:4);
  ReadKey
end.

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

   int n[10],a,b;

   float s;

   cout<<"OT: ";cin>>a;

   cout<<"DO: ";cin>>b;

   srand(time(0));

   

   for (int i = 0; i<sizeof(n)/sizeof(int);i++)

   {

       n[i] = a+rand()%b;

   }

   cout <<"Все числа: ";

   for (int i = 0;i<sizeof(n)/sizeof(int);i++)

   {

       cout<<" "<<n[i];

       s = s + n[i];

   }

cout<<endl<<"ITOG: "<<s/(sizeof(n)/sizeof(int));

   return 0;

}

Объяснение: