Вот код:
uses crt;
var a,b:integer;
begin clrscr;
writeln(''в_дит_ чис<R:'); readln(a);
If (a<100) and (a>=10) then
begin
b:=a mod 2;
If b=1 then
writeln('_ т в _ т: чис<R',a,'яв<я_ться -_ч_т-ым ц_<ым двуз- ч-ым чис<Rм')
else writeln('_ т в _ т: чис<R ',a,' яв<я_ться ч_т-ым ц_<ым двуз- ч-ым чис<Rм');
end;
else writeln('_ т в _ т: д --R_ чис<R -_ яв<я_ться двуз- ч-ым');
readln;
end.
Немогу найти ошибку в операторе, может у меня неправильная структура?
