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. Условие равного возраста не рассматривается. Если ввести одинаковый возраст, то младшим будут Петя
