Работаем в Pascal ABC 1. Найти количество цифр меньше 6 в целом x. Тест: 254904 - 5 2. Найти сумму первой и последней цифры в целом x. Тест: 254904 - 6 3. Найти сумму самой большой и самой маленькой цифры в целом x Тест: 254904 - 9

1.var x,s:integer;beginread(x);s := 0;while x > 0 do  begin  if x mod 10 < 6 then s := s + 1; {здесь была ошибка}  x := x div 10  end;write(s)end.2.var x,s:integer;beginread(x);s := x mod 10;while x > 10 do  x := x div 10;write(x + s)end.3.var x,a,b:integer;beginread(x);a := x mod 10;b := x mod 10;while x > 0 do    begin    if x mod 10 > a then a := x mod 10;    if x mod 10 < b then b := x mod 10;    x := x div 10;    end;write(a + b)end.