ввести последовательно возраст антона бориса и виктора

Ответ от
Вот один из множества вариантов:
label 1;
var a,max:integer; m:array[1..3] of integer;
begin
for a:=1 to 3 do
read(m[a]);
max:=m[1];
if (m[1]=m[2]) and (m[1]=m[3]) then begin writeln(0); goto 1; end;
for a:=2 to 3 do
if m[a]>max then max:=m[a];
for a:=1 to 3 do
if m[a]=max then begin if a=1 then write('A',' '); if a=2 then write ('B',' ');
if a=3 then write('C'); end;
1:readln
end.