Блок-схема по паскалю.1) Задано вк 3-х друзв. Складть програму, за допомогою яко

1)var a,b,c:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (agt;b) and (agt;c) then writeln('Старшим является 1 друг')
else if (bgt;a) and (bgt;c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
end.
2)var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if agt;b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
end.