Var  a,b:integer;begin  writeln(Введите двухзначное число);  readln(a);  b:=random(90)+10; {рандомное число от 10 до 99}  writeln(случайно выбранное число=,b);  if alt;b then  begin    writeln(a,lt;,b);    writeln(a mod 10,+,a div 10,=,a mod 10+a div 10);  end  else  begin    writeln(a,gt;,b);    writeln(a,^4=,a*a*a*a);  end;  end.