<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Сперва замечания по коду: после b:=0 нужна точка с запятой
и в цикле между числами пишется to, а не do
a=5; b=-5
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
1.Может
2.Не может
-_____________________________________-