дан квадрат со стороной A являестся ли его периметр двухзначным число
var a: integer;
begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.