uses
  crt;

var
  a, b: integer;

begin
  b := 0;
  textcolor(7);
  writeln('Напишите числа и в конце напишите 0');
  readln(a);
  while a <> 0 do
  begin
    clrscr;
    begin
      if (a > 9) and (a < 91) and (a mod 10 = 0) then
        writeln(a, ' это двухзначное число делящееся на 10');
      if a > 10 then
        b := b + a;
      if a > 50 then
        writeln(a, ' это число больше 50');
    end;
    writeln('Напишите новое число или напишите 0, чтобы закончить программу');
    readln(a);
  end;
  writeln('Сумма всех чисел больших 10 = ', b);
end.