Ошибка действительно всего одна. См. вложения. 2>0 все же равно true.
Расписание можно составить двумя способами:
1) первый урок — математика, второй — литература, третий —
история;
2) первый урок — история, второй — математика, третий —
литература.
Напиши:Монитор,Мышка,Клавиатура,Системный блок
И сфоткай их
Var
n, s: integer;
begin
readln(n);
n := abs(n);
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
writeln(s);
end.