program Prj00009AlgoritmosSequencias; 
 
var 
  A, B, C, vMaior : Inteiro; 
 
begin 
 
  escreva('Informe o valor de A: '); 
  leia(A); 
 
  escreva('Informe o valor de B: '); 
  leia(B); 
 
  escreva('Informe o valor de C: '); 
  leia(C); 
 
  vMaior <- (A + B + ABS(A - B)) div 2; 
 
  vMaior <- (vMaior + C + ABS(vMaior - C)) div 2; 
 
  escreva('O Maior é: ', vMaior); 
 
end.

{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00009AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
var
  A, B, C, vMaior : Integer;
begin
  SetConsoleTitle('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
  Writeln('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
 
  Write(#10#13 + 'Informe o valor de A: ');
  Readln(A);
 
  Write(#10#13 + 'Informe o valor de B: ');
  Readln(B);
 
  Write(#10#13 + 'Informe o valor de C: ');
  Readln(C);
 
  vMaior := (A + B + Abs(A - B)) div 2;
  vMaior := (vMaior + C + Abs(vMaior - C)) div 2;
 
  Writeln(#10#13, 'O maior '#130': ', vMaior);
 
  Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
  Readln;
end.

#include <vcl.h>
#pragma hdrstop
 
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
 
//---------------------------------------------------------------------------
 
#pragma argsused
 
void _tmain(){
	SetConsoleTitleA("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.");
	printf("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme o valor de A: ");
	int A;
	scanf("%d", &A);
 
	printf("\nInforme o valor de B: ");
	int B;
	scanf("%d", &B);
 
	printf("\nInforme o valor de C: ");
	int C;
	scanf("%d", &C);
 
	int vMaior = (A + B + abs(A - B)) / 2;
	vMaior = (vMaior + C + abs(vMaior - C)) / 2;
 
	printf("\nO maior é: %d", (vMaior));
 
	printf("\n\n");
	system("pause");
}