Задача 1. Введено число. Известно, что оно может быть равно от 10 до 999, определить сумму цифр в этом числе
Задача 2. Введено три числа. Определить количество четных из них, больших пяти
Задача 3. Введено трехзначное число, вывести это число с отсортированными по порядку цифрами

задача 1. var a, k, l, m: Integer;begins:= 0;writeln ('Введите число');readln(a);if (a>=10) and (a<=999) thenk:=a div 100;l:= k div 10;m:= a mod 10;s:= k+m+l;writeln ('Сумма цифр в числе равна ', s);end.Задача 2.var i, a, s: Integer;begin s:=0;for i:= 1 to 3 dobeginwriteln ('Введите число №', i);readln(a);if (a>5) and (a mod 5 = 0) then inc(s);end;writeln('Количество четных чисел, которые делятся на 5 - ', s);end.Задача 3var a, b, c, d, max, med, min: Integer;beginwriteln ('Введите число');readln(a);b:= a div 100;c:= b div 10;d:= a mod 10;if (b<c) and (b<d) thenmin:= b;if (c<b) and (c<d) thenmin:= c;if (d<c) and (d<b) thenmin:= d;if (b>c) and (b>d) thenmax:= b;if (c>b) and (c>d) thenmax:= c;if (d>c) and (d>b) thenmax:= d;if (b>c) and (b<d) or (b<c) and (b>d) thenmed:= b;if (c>b) and (c<d) or (c<b) and (c>d) thenmed:= c;if (d>c) and (d<b) or (d<c) and (d>b) thenmed:= d;writeln(min, med, max);end.