Ребят задача на языке Pascal...
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.

Program pr;uses crt;Var a;BeginWriteln('Введите число');readln(a);if (a>9) and (a<100) then a:=a*2else a:=a-10;Writeln(a);readln;end.