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

Program pr;
uses crt;

Var a;

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