var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.
Ерунда, а не задача.... трижды одно и то же разными словами.
Это какой класс? Можете сказать? И я может быть помогу
1) Роднина и биология 86 ≥ химия 74
2) Черепанова или (Биология 92 ≥ Химия 83)
3) Математика 74 ≥ 60 или (Информатика 43 ≤ 60)
4) Математика 94 ≥ 60 и информатика 64 ≥ 60
люди , которые заводят животных и воспитывают их,ухаживают, ростят.