Развертывающийся алгоритм

[Anton34]

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

 
program p;
var a, b, c, max:integer;
begin
writeln('Введите три числа');
read(a, b, c);
if a>b then begin
max:=a;
end
else begin
max:=b;
if a>c then begin
max:=a;
end
else begin
max:=c;
if b>c then begin
max:=b;
end
else begin
max:=c;
writeln (' Наибольшее число', max);
end.

[Leshii]

Уменьшил количество написаного тобой. А в целом правильно.

program p;
var a, b, c, max:integer;
begin
writeln('Введите три числа');
read(a, b, c);
if (a>b) and (a>c) then max:=a
else 
if (c>a) and (c>b) then max:=b
else 
if (b>c) and (b>a)then max:=c
writeln (' Наибольшее число', max);
end.

[19vitek]

var a, b, c, max:integer;
begin
writeln('Введите три числа');
read(a, b, c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln (' Наибольшее число', max);
Readln;
end.

[Arigato]

var a, b, c, max: Integer;
begin
  ReadLn (a, b, c);
  max := (Abs (a - b) + a + b) div 2;
  max := (Abs (max - c) + max + c) div 2;
  WriteLn (max);
  ReadLn;
end.