с информатикой
Тема ветвление ​

1.

program z1;

var a:integer;

begin

write('Введите пятизначное число: ');

readln(a);

write('Сумма первых трёх цифр: ',a div 10000 + a div 1000 mod 10 + a div 100 mod 10)

end.

2.

program z2;

var p,k:integer;

begin

writeln('Введите возраст Пети и Кати');

readln(p,k);

if p>k then

write('Катя младше')

else

write('Петя младше')

end.

Объяснение:

2. Условие равного возраста не рассматривается. Если ввести одинаковый возраст, то младшим будут Петя