На вход поступает целое число. Выяснить является ли оно двухзначным.

или

2. На вход поступает целое число, если оно нечётное то, то умножить его на 10, иначе умножить на 5

1) program z1;

Var a:integer;

Begin read(a);

if (a>9) and (a<100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)program z2;

var c:integer;

begin

readln(c);

if (c mod 2)=0 then writeln(c div 5) else writeln(c*10);

end.