1)var a,b,c:integer;
begin
writeln(Введите возраст 1 друга);
readln(a);
writeln(Введите возраст 2 друга);
readln(b);
writeln(Введите возраст 3 друга);
readln(c);
if (a>b) and (a>c) then writeln(Старшим является 1 друг)
else if (b>a) and (b>c) then writeln(Старшим является 2 друг)
else writeln(Старшим является 3 друг);
end.
2)var a,b:integer;
begin
writeln(Введите возраст 1 друга);
readln(a);
writeln(Введите возраст 2 друга);
readln(b);
if a>b then writeln(Старшим является 1 друг)
else writeln(Старшим является 2 друг);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.